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En nuestro siglo, el círculo de 
grandes héroes de la humanidad, 
se nutre sobre todo de géneros 
como el cine o el cómic. Buena 
prueba de ello es Dan Daré, Piloto 
del Futuro. 


Pese a su comodidad, el manejo de 
notación científica en ciertos 
cálculos, como los factoriales, 
puede quedarse corto; obtengamos 
una precisión casi infinita. 








































Un fantástico 
digitalizador 
aplicado a un 
procesador de 
imagen no 
menos 
fascinante: 
PRINT-TECHNIK 
y AMIGA. 
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Usualmente , este espacio se reservo a un bre¬ 

ve comentario sobre el contenido de nuestra 
revista; no obstante, en esta ocasión nuestra 

mirada se fije en otra revista , de cuyo nombre 

no queremos acordarnos, aunque lo seguro es 

que la confeccionan hijos de la Gran Bretaña ... 


que no nos lo tomen a mal: es que estamos 


lablando de una publicación inglesa. Pues 

bien, no sabemos bien porque extraña razón, 

han tenido a bien echar por tierra sistemática¬ 

mente y sin razones fundadas , la calidad~3él 
software español, y más concretamente el de 

Dinamic. Y es que hav mucha envidia. Animo, 

Dinamic, y a por todas; y más aún fuera de 

nuestras fronteras. ~ 
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INFORMA T 87 

Más de 34.000 profesiona¬ 
les de toda España visitaron 
Informat 87 durante los seis 
días del 16 al 21 de marzo, de 
celebración del certamen, ci¬ 
fra que supone, un incremento 
con relación a la edición ante¬ 
rior. 

Durante Informat 87 se ce¬ 
lebró la Convención Informáti¬ 
ca Latina, que convocó a 827 
profesionales procedentes de 
7 países, y fue inaugurada por 
el alcalde de Barcelona D. 
Pasqual Maragall, con una 
conferencia cuyo tema se 
centró en «BIT 92», el plan ge¬ 
neral de informatización para 
los Juegos Olímpicos. 

En el certamen participaron 
un total de 176 expositores, re¬ 
basando los límites de ocupa¬ 
ción, para utilizar parte del Pa- 


Atari se 
establece en 
España 

El pasado día 7 de abril a 
las 18 h., en el Hotel Miguel 
Angel de Madrid, se informó 
oficialmente a la prensa técni¬ 
ca del establecimiento en Es¬ 
paña de Ordenadores Atari, 
S.A., con el objetivo de comer¬ 
cializar todos los productos 
que constituyen la gama de 
Atari Corporation, compañía 
que ostenta la titularidad del 
100% del capital de la nueva 
filial. 

En la reunión se expusieron 
con detalle las actividades y 
próximos lanzamientos, así 
como la ya cercana visita de 
su presidente Jack Tramiel, 
con motivo de la presentación 
del nuevo modelo PC de esta 
firma. 


Según aseveró su máximo 
representante en España, Mr. 
Claude Nahum, Ordenado¬ 
res Atari cuenta con todos los 
elementos necesarios para el 
éxito: producto de calidad, 
con la tecnología más avan¬ 


zada y a un precio competiti¬ 
vo, además de un equipo hu¬ 
mano profesional para su me¬ 
jor soporte técnico y comer¬ 
cial. Con estas armas, cuentan 
para alzarse en nuestro mer¬ 
cado con el éxito indudable 


que acompaña a la multina¬ 
cional americana fuera de 
nuestras fronteras. 

Su dirección definitiva se 
establece en la calle San Mar¬ 
cos, 39-41.28004 de Madrid, 
con el teléfono (91) 5224113. 



6 TU MICRO COMMODORE 

























lacio de Congresos. Entre las 
firmas expositoras, cabe des¬ 
tacar: 

— Microbyte: Con su am¬ 
plia gama de software para 
todos los modelos de Amstrad, 
incluido por supuesto el PC 
1512. 

— Babeta-Rpa System Inc.: 
Aportó su extenso catálogo 
de aplicaciones de gestión, 
utilidades y complementos, 
ocupándose asimismo del 
sector PC. 

— Casa de Software: Exhi¬ 
bió sus productos en el campo 
de los lenguajes, sistemas 
operativos, programas de 
gestión, y GEMs para PC 
1512. 

— Catinsa Informática: 
Con sus ya conocidos progra¬ 
mas de facturación de restau¬ 
rantes, cartera -I- IVA y factu¬ 
ración de comercios. 

— Dimoni Software: Pre¬ 
sentó Ditexto, su gestión inte¬ 
gral de documentos. 


— Idealogic: En el campo 
del software, con los progra¬ 
mas 9 príncipes en Amber, Ci¬ 
ta con Rama, Compra y ven¬ 
de, Turbo Back-up para PC, y 
una oferta especial combina¬ 
da hard-soft, constituida por 
10 programas y un Joystick, 
todo ello por el asombroso 
precio de 2.990 ptas. 

— Small Software Médico: 
Destacó en el campo del soft¬ 
ware médico, concretamente 
para médicos, ejecutable so¬ 
bre compatibles, con sus obli¬ 
gaciones de Control (Conta¬ 
bilidad y Stock), Agenda, Fi¬ 
chero de pacientes, Archivo 
de historias, e ¡nteracciónn de 
fármacos. 

Y por último, Ingelek, que no 
podía dejar de hacer acto de 
presencia, tanto para cubrir la 
información a sus lectores, co¬ 
mo para proporcionar un con¬ 
tacto directo del público con 
la editorial y su producto, a 
través de su stand. 


Grupo Comal 
en España 

COMAL es un lenguaje de 
programación moderno, de¬ 
sarrollado en Dinamarca, 
cuya popularidad se ha ex¬ 
tendido por los demás países 
escandinavos, Alemania, Ho¬ 
landa, Inglaterra, Estados Uni¬ 
dos y Canadá. COMAL (CO- 
Mon Algorithmic Language) 
reúne las ventajas del BASIC 
(sencillez e interactividad), 
PASCAL (programación es¬ 
tructurada) y LOGO (gráficos 
de tortuga y diseño pedagó¬ 
gico), con sus propias peculia¬ 
ridades, siendo un lenguaje 
potente con un precio al al¬ 
cance de todos. 


Es ideal para gran número 
de aplicaciones profesionales 
y personales, y por su sencillo 
aprendizaje, ha sido adopta¬ 
do por los ministerios de edu¬ 
cación de varios países como 
lenguaje oficial para la ense¬ 
ñanza informática. 

Junto al Módulo de CO¬ 
MAL, se entregan paquetes 
espaciales para gráficos y su 
animación, sonidoy un compi¬ 
lador, que varía según las po¬ 
sibilidades hardware del or¬ 
denador. 

Existen versiones para 
Commodore que se pueden 
adquirir en Grupo Comal Es¬ 
paña. Aptdo. de correos 934, 
E—18080 Granada/ con los 
manuales en castellano, y 
apoyo técnico a los usuarios. 


Novedad Konami 



Serma lanzó a finales de marzo, su gran novedad Konami: 
Nemesis; primeramente en versión Commodore y próximamen¬ 
te en los demás sistemas, al precio en casete de 2.200 pesetas. 

El planeta Nemesis, un mundo tranquilo parecido a la tierra, 
se halla bajo el ata¬ 
que estelar de sus 
viejos enemigos: los 
seres del grupo su¬ 
bespacial Bacte- 
rion. Si deseas ju¬ 
gar con un progra¬ 
ma no demasiado 
complicado, don¬ 
de pongas a prue¬ 
ba tu destreza y tus 
nervios de acero, 
éste es tu juego. 





























Radio a 
con mea un 
concurso 


Radio 4, la emisora catala¬ 
na de Radio Nacional de Es¬ 
paña, ha convocado un origi¬ 
nal concurso. Se trata de un 
certamen de diseño por orde¬ 
nador del logotipo de la emi¬ 
sora. 

Los que deseen tomar par¬ 


te, deberán elaborar un pro¬ 
grama informático que dé co¬ 
mo resultado la imagen que 
representa el logotipo de Ra¬ 
dio 4, el cual debe animarse y 
acompañarse de música. 

El plazo de entrega de tra¬ 
bajos (un máximo de cinco 
por concursante) finaliza el 
día 15 de junio de 1987. Estos 
deberán ser presentados en 
formato digital de ordenador, 
grabados en soporte magné¬ 
tico. Dentro de la categoría de 


home Computer se incluyen los 
Commodore 64 y 128 y en la 
de PC y compatibles el Amiga. 

Para los ganadores en las 
diversas categorías, habrá im¬ 
portantes premios, valorados 
en más de un millón y medio 
de pesetas: 2 ordenadores 
con disco rígido Bondwell W 
36; 4 ordenadores con dos 
disketes Bondwell W 34; 4 or¬ 
denadores portátiles con 2 
disketes Bondwell W 12; 2 ¡m- • 
presoras Newprint I; 6 rato¬ 


nes; 6 colecciones de la serie 
Gem de Digital Research. 

El jurado está formado por 
profesionales del diseño, la in¬ 
formática y la radio. Los que 
deseen obtener las bases de¬ 
talladas del concurso, el logo¬ 
tipo y la partitura de la sinto¬ 
nía de la emisora como mode¬ 
lo, pueden solicitarlas en: 

Radio Nacional de España 
en Cataluña. Radio 4. Paseo 
de Gracia, 1.08007 Barcelo¬ 
na. 


Este mes 

muchos 

ganadores 

Comenzaremos por el sor¬ 
teo efectuado entre las nume¬ 
rosas cartas recibidas como 
respuesta a la encuesta «HAZ 
TU PROPIA REVISTA», cuyo 
premio estelar es una cadena 
Hi-Fi, con la cual ha sido agra¬ 
ciada la lectora de Alcalá de 
Henares (Madrid), Marisol 
Maroto Gallardo, de quien 
esperamos que se ponga 
pronto en contacto con noso¬ 
tros, para poder hacerle en¬ 
trega de este magnífico rega¬ 
lo. 

Y para los restantes diez 
afortunados, otros tantos Koa¬ 
la Pad, que recibirán cómoda¬ 
mente en su domicilio; sus 
nombres son: 

José Luis Adserías Perales 
de Barcelona. 

Joan M.° Mas de Reus (Ta¬ 
rragona). 

Basilio Caro Ramírez de 
Vals (Tarragona). 

Juan Carlos Alvarez Vicens 
de Hospítalet (Barcelona). 

Santiago Simón Silva de 
Retuerdo (Vizcaya). 


José Luis Pérez Hornero de 
Trujillo (Cáceres). 

Jesús M. a Marcos Gonzá¬ 
lez de Pamplona. 

José M. a Martín García de 
Madrid. 

Juan José Amor Iglesias de 
Madrid. 

Joaquín Giménez Linares 
de Barcelona. 

Ahora le llega el turno a los 
ganadores de una suscripción 
por seis meses a nuestra re¬ 
vista TU MICRO COMMO¬ 
DORE, por su colaboración en 
la confección de la sección 
LOS 7 MAGNIFICOS; han si¬ 
do los siguientes lectores: 

Nicolás Rodríguez Leiro de 
Villagarcía de Arosa (Ponteve¬ 
dra). 

Eduardo Gálvez Moreno 
de Villajoyosa (Alicante). 

José Ramón García Franco 
de Reus (Tarragona). 

Juan Antonio Antequera de 
Barcelona. 

Francisco Sena Alcaraz de 
San Javier (Murcia). 

David Horrach Pachequin 
de Inca (Baleares). 

Joaquín Giménez Linares 
de Barcelona. 

Daniel Callejo Gómez de 
Puerto de Alcudia (Baleares). 


Angel García Olaya de To¬ 
ledo. 

Vicente Hernández de 
Graus (Huesca). 

Y a continuación el premio 
seguramente más esperado, 
por tratarse del de mayor 
cuantía: 100.000 ptas. en ma¬ 
terial informático, para el me¬ 
jor programa presentado a 
concurso. Su ganador ha sido 
un lector de Basauri (Vizcaya): 


Pedro Alonso del Río, por su 
entretenido programa Tenis. 

Finalizamos este agradable 
capítulo, no sin antes recordar 
nuevamente, a todos los agra¬ 
ciados con algún premio, dis¬ 
tinto a una suscripción; la ne¬ 
cesidad de que se pongan en 
contacto con nosotros, a la 
mayor brevedad posible, pa¬ 
ra gestionar la entrega del 
mismo. 
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A FONDO 



Dan 



En nuestro siglo, el círculo de grandes héroes de la 

humanidad se nutre sobre todo de géneros como el cine 

y el comic. Probablemente, casi todos nosotros recorda¬ 

mos a Indiana Jones, a Flash Gordon o incluso a Super- 


man, pero en el comic (y en la vida real) existen persona¬ 

j es relegados a un segundo plano de la fama, menos co¬ 
nocidos pero no menos interesantes que el resto. Estamos 
hablando de Dan Pare, Piloto del Futuro. 


R esumen de lo publicado en 
el número anterior (Comic 
de Dan Daré, número 7, año 
IV): Dan Daré y sus insepara¬ 
bles compañeros de aventu¬ 
ras, la profesora Peabody, su amigo Digby 
y su mascota Stñpey, están siendo entrevis¬ 
tados en los Estudios de Televisión Terrestre, 
EH. 

Se encuentran también presentes en los 
estudios Sir Hubert Guest, Almirante de la 
Flota Espacial, y los embajadores de todos 
los planetas* conocidos del Universo. Rin¬ 
den juntos homenaje a nuestro héroe, Dan 
Daré, quien tantas veces ha defendido el 
Universo libre frente a cualquier amenaza, 
aún a riesgo de perder su propia vida o 
quedar despeinado después de una pelea 
(los auténticos héroes deben conservar en 
todo momento su impecable presencia). 

Durante el estruendo de los aplausos, los 
videoreceptores del estudio fueron inter¬ 
ceptados poruña extraña señal proviniente 
de los remotos confines de la galaxia. Las 
miradas iban posándose con estupor sobre 
los monitores, en las «verdiasquerosas» fac¬ 
ciones del Mekon, el malo de la aventura. 
Estas fueron sus palabras: «Seré breve. Se¬ 
ñores, a cambio de hacer estallar inofensi¬ 
vamente el asteroide que "por casualidad" 
está en rumbo de colisión con la Tierra, tan 
sólo pido la rendición incondicional del 
Universo». Terminado el mensaje, la ima¬ 
gen desapareció de las pantallas. 

«Desde luego es impensable acceder a 
sus propósitos, pero hay que evitar que la 
Tierra sea destruida y creo haber encontra¬ 
do la solución», dijo el Almirante Guest 
mientras sacaba a Dan Daré de debajo de 
la mesa (al parecer, nuestro héroe sólo bus¬ 
caba su tenedor). «Dan Daré partirá hacia 
el asteroide ¡unto a sus inseparables com¬ 
pañeros». 

Así es como Dan Daré, la profesora Pea¬ 
body, Digby y Stripey fueron arrastrados 
voluntariamente hasta el espaciopuerto y 
embarcados en la aeronave Anastasia 


rumbo al asteroide que antes hemos men¬ 
cionado. Sin posibilidades de alterar la ruta 
de la nave, nuestros amigos no tuvieron 
más opción que la de resignarse, dispues¬ 
tos ya para luchar contra el malvado Me¬ 
kon y sus no menos malvadas hordas de 
Treens. 

Mientras se dirigían a su destino, Dan 
empezó a leer los datos técnicos obtenidos 
por las sondas de exploración acerca de 
las características de este cuerpo celeste. 
Gravedad: 9.8. Atmósfera: Respirable. 
Control de movimientos: Joystick conectado 
al port 2... Por fin, al cabo de dos horas de 
aburrido viaje, la nave Anastasia aterrizó 
sin problemas en la superficie del asteroide. 

La árida superficie del asteroide 

y las hostiles cavernas del 

subsuelo 

Fue entonces cuando los expediciona¬ 


rios cometieron un gravísimo error: dividirse 
en dos grupos; la profesora Peabody y Dig¬ 
by por un lado, y Dan con su mascota Stri¬ 
pey por el otro. Como resultado de esta ac¬ 
ción, los componentes del primer grupo fue¬ 
ron apresados ante la mirada atónita de 
Dan Daré, quien se encontraba demasiado 
ocupado para evitarlo. Stripey jugueteaba 
en torno a Dan, mientras éste se peinaba 
cuidadosamente para no defraudar a sus 
fans. 

La misión se había complicado, pues no 
solo debía destruir al Mekon y huir antes de 
que se produjera la explosión del asteroide, 
sino que también había de rescatar a sus 
compañeros. De este modo Dan, siempre se¬ 
guido por Stripey, comenzó su andadura a 
través de la superficie del asteroide. Tras ca¬ 
minar durante breves instantes, se encontró 
con un Treen embutido en un traje espacial, 
pero gracias a su temido gancho de joys¬ 
tick hacia una de las diagonales superiores 
(con el botón apretado), no tuvo problemas 
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para acabar con su enemigo. En el fragor 
de la lucha observó como aparecía una 
barra de dos colores, verde y rojo, en el ai¬ 
re. Conforme golpeaba al Treen la parte 
roja iba disminuyendo, así que cuando su 
adversario perdió toda su energía, es decir, 
cuando no quedaba barra en la parte roja, 
comenzó a desintegrarse paulatinamente. 

Superado este primer obstáculo, Dan si- 
guio vagando a lo largo de la superficie 
del asteroide, con lo cual pudo comprobar 
que la longitud de la misma era muy redu¬ 
cida. Entonces se le ocurrió bajar a través 
de la primera trampilla que había encon¬ 
trado en su camino (¡asombrosa inteligen¬ 
cia!). Fue así como nuestro héroe llegó has¬ 
ta un río subterráneo, donde una voz en off 
(escrita en forma de «bocadillo» de comic 
sobre la pantalla) le advirtió que había en¬ 
contrado bambú. Luego, con el botón de 
disparo pulsado y moviendo el ¡oystick ha¬ 
cia arriba o hacia abajo, fue cambiando el 
mensaje del «bocadillo» hasta situar aquel 
que le permitiera cortar el bambú, por últi¬ 
mo soltó el botón de disparo. Había corta¬ 
do el bambú. 

Gracias a la caña podría sumergirse en 
el río subterráneo, utilizando la planta a 
modo de respiradero, dirigiéndose hacia la 
izquierda. Caminaba bajo aguas sin pro¬ 


blemas, hasta que se enredó en un extraño 
objeto. Al recogerlo, observó que se trata¬ 
ba de una palanca y decidió conservarla 
durante el resto de la aventura, ya que sin 
duda alguna se trataba de un objeto útil. 
Optó entonces por encaminarse hacia la 
derecha, a ver que encontraba por allí. 

Tras una larga navegación (o un largo 
paseo, porque en realidad estaba cami¬ 
nando) dejó por fin el lecho del río y vio en¬ 
frente suyo una trampilla cerrada. Después 
de intentar levantarla sin éxito, hizo uso de 
la palanca y la trampilla se abrió. Esta es 
una de las tres entradas al siguiente nivel 
del asteroide. Para continuar con el juego 
bastaba con descender a través de esta 
trampilla, pero Dan sabía que al bajar aho¬ 
ra ya no podría rescatar a sus dos compa¬ 
ñeros. Por esta razón (y por no despeinar su 
cuidado cabello al penetrar en el interior 
del asteroide), antes decidió encontrar las 
otras dos entradas. 


Don ha encontrado una de las 
trampillas, pero sólo a la tercera 

va la vencida 


Otra de las trampillas se encuentra inme¬ 


diatamente a la derecha, aunque no es 
fácil llegar a dicho acceso, porque antes 
hay que llevar a cabo una serie de accio¬ 
nes de indudable importancia, a fin de 
completar totalmente la misión. Veamos 
pues, la lista de acciones: 1) Coger una fru¬ 
ta, 2) Guardar la antorcha o linterna y 3) 
Llegar hasta la trampilla. 

La linterna es un objeto tan útil si cabe 
como la palanca, pues facilita el encontrar 
y abrir otra de las trampillas que conducen 
al interior del complejo subterráneo y ade¬ 
más, sin este objeto es muy difícil llegar has¬ 
ta la celda donde está encerrado Digby. ¿Y 
la fruta? Sin la fruta, por increíble que pa¬ 
rezca, resulta imposible conseguir la linterna. 

Mientras nosotros nos perdíamos en tan 
ridiculas divagaciones, Dan Daré deambu¬ 
laba por las cuevas en pos de la ansiada y 
amarga fruta. En vista de la complejidad 
del laberinto de cavernas, nuestro héroe 
decidió hacer un mapa, pero más tarde 
comprobó que aun siendo constantes las 
uniones entre cuevas, apenas guardaban 
una relación lógica. Esta fue la razón por la 
cual Dan Daré rompió el mapa que no figu¬ 
ra junto a este artículo. 

De todas formas, Dan sabía que desde 
una trampilla que permanece abierta en to¬ 
do momento, era posible coger la fruta. Y 
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también sabía que cerca, muy cerca de es¬ 
te lugar, encontraría la linterna, aunque no 
podría acercarse hasta ella. Para eso tiene 
la fruta, basta con tirarla y... ¿y acaso creías 
que una fruta nos iba a traer la linterna? Evi¬ 
dentemente no, es Stripey quien le dará la 
linterna a Dan cuando vaya a recoger la 
fruta. Un truco muy espectacular. 

Con tan valioso objeto en su poder, el Pi¬ 
loto del Futuro se encuentra ya en disposi¬ 
ción de llegar hasta la siguiente trampilla, 
aunque necesite imitar un poco a Tarzán, 
cortando y atando varías lianas a fin de 
descender por el abrupto precipicio. Una 
vez abierta la trampilla, Dan se encontrará 
en la más absoluta oscuridad, pero el jaleo 
de la fruta, Stripey y la linterna, habría de 
servir para algo, ¿no? 

Así es como Dan consiguió, no sin algu¬ 
nas peripecias más, abrir el segundo de los 
accesos al mundo subterráneo del Mekon. 
La tercera y última de estas entradas se en¬ 
cuentran en la parte opuesta del asteroide, 
de modo que el mejor camino para llegar 
pasa por la superficie. Siguió Dan este ca¬ 
mino hacia la derecha, hasta llegar a una 
trampilla cerrada y entonces usó de nuevo 
la palanca. Descendiendo a través de la 


trampilla, llegó a otra cueva con su trampi¬ 
lla cerrada, pero esta vez, en lugar de abrir¬ 
la sin más, buscó una rama, porque noso¬ 
tros le habíamos dicho que estaba electrifi¬ 
cada. 

Por fin había descubierto el último de los 
accesos, pero como también le habíamos 
dicho que esta entrada conducía directa¬ 
mente a la guarida de los Treens, antes de 
recorrer todos los peldaños de la escalera, 
decidió derrotar a un Treen para disfrazar¬ 
se como tal y no ser atacado al meterse en 
la boca del lobo. Dicho y hecho, se puso el 
uniforme y comenzó a descender por la es¬ 
calera de seguridad; de esta forma llegó a 
la segunda fase de su escabrosa odisea. 


Un laberinto de escaleras, 
pasillos, puertas, treens, claves, 

celdas, etc. 

Sintetizando brevemente, ésta podría ser 
una buena descripción de lo que Dan Daré 
tiene enfrente suyo. No sabe donde empie¬ 
za ni donde termina, ni siquiera sabe por 
dónde ha de buscar. Como nosotros esta¬ 


mos aquí para algo, le vamos a dar algunos 
consejos muy prácticos que evidentemente 
facilitarán su labor. Dan Daré es un héroe, 
pero algunas veces también los héroes ne¬ 
cesitan ayuda. 

En primer lugar, le diremos que ha de en¬ 
frentarse contra varios Treens para conse¬ 
guir unas determinadas claves. Dichas cla¬ 
ves le permitirán atravesar las puertas que 
están cerradas (de color rojo por un lado y 
azul por el otro), incluidas las celdas donde 
se hallan confinados Digby y la profesora 
Peabody. Algunos Treens son depositarios 
de estas claves y tienen orden de defender¬ 
las con su propia vida, así que nuestro hé¬ 
roe ha de vencerles en abierto combate pu- 
gilístico. 

Por si esto fuera poco, le diremos que en 
este, como en cualquier otro laberinto, re¬ 
sulta muy difícil orientarse. Lo más importan¬ 
te es encontrar la puerta que conduce has¬ 
ta el láser industrial o la habitación oscura o 
la celda donde están encerrados sus ami¬ 
gos, a fin de establecer así un punto de re¬ 
ferencia. Todos estos lugares se encuentran 
en las zonas inferiores del complejo y unas 
llevan hasta otras. Por ejemplo, desde la 
habitación oscura (otro sitio donde será 
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muy útil la antorcha) basta con descender 
por la escalera central para llegar a la cel¬ 
da de Digby. 

En fin, lo demás, Dan Daré es cosa suya, 
le corresponde a usted rescatar a Digby y a 
la profesora, no a nosotros. Es usted quien 
ha de llegar hasta el láser gigante con el 
que destruir los ordenadores de ruta del as¬ 
teroide. No nos defraude porque confia¬ 
mos ¿plenamente? en usted. 

El láser industrial y otro 
laberinto, pero esta vez con 

espejos reflectantes 

Si ha tenido suerte, Dan Daré nos habrá 
seguido hasta el láser con el que debe des¬ 
truir los ordenadores centrales del asteroi¬ 
de, en total tres. Para ello, cuenta con el po¬ 
tente haz de fotones de un gigantesco láser 
industrial, y la posibilidad de orientar el 
rayo de luz con la ayuda de varios espejos 
reflectantes, que puede orientat libremente. 
Estas son sus armas y sus enemigos, como 
de costumbre, los Treens y un laberinto de 
habitaciones (en realidad, pasillos). 


En principio a Dan se le ocurrió ir orien¬ 
tando los espejos conforme avanzaba por 
el laberinto, pero después optó por avan¬ 
zar primero en busca del computador. Una 
vez encontrado, podría ir cambiando la 
posición de los espejos hasta llegar al ca¬ 
non del láser. Puso especial atención en es¬ 
te proceso, pues sabía que el láser destrui¬ 
ría todos los espejos que estuvieran mal 
orientados. 

Tras arrasar el primer ordenador, lo in¬ 
tentó con el segundo y más tarde con el ter¬ 
cero (sólo es posible destruirlos siguiendo 
este orden), siempre con el mismo procedi¬ 
miento. De no saber (por nosotros, claro 
está, modestia aparte) que el tercer orde¬ 
nador se encuentra por encima del segun¬ 
do y éste por encima del primero, hubiera 
tardado mucho más tiempo en destruir las 
tres computadoras. 

Aunque la Tierra ya está a salvo, Dan 
Daré y sus amigos todavía se encuentran 
en una situación de auténtico peligro, sobre 
todo porque a Dan se le ha metido en la ca¬ 
beza destruir al Mekon, un capricho que 
puede costarle.muy caro. Por este motivo 
atravesó la puerta ubicada justo debajo 
del ordenador número tres. 


Luchando contra el Mekon, Dan 
Daré podrá demostrar que tiene 
madera de héroe 


Llegamos casi al final de esta aventura 
de Dan Daré. Después de atravesar unos 
¡nocentes pasillos, sin más problemas que el 
derrotar a un par de Treens, entraremos en 
el centro del asteroide: la bóveda del Me¬ 
kon. Este es sin lugar a dudas el aspecto 
más arriesgado de la misión: una lucha 
frente a frente entre el bueno y el malo, en 
desigual combate. El Mekon dispara rayos 
energéticos que Dan apenas puede esqui¬ 
var y por si esto fuera poco, sus granadas 
de mano tienen tan poco alcance que no 
llegan a su destino... 

¿Se le acabarán las granadas a Dan Da- 
re? ¿Morirá a manos del Mekon o de sus 
Treens? ¿Llegará el reloj a las 13:00 horas 
antes de que nuestro héroe esté sano y sal¬ 
vo? ¿Destruirá Dan Daré al Mekon? ¿Con¬ 
seguirá escapar a tiempo del asteroide jun¬ 
to a sus amigos a bordo de la nave Anasta¬ 
sia? Estas y otras preguntas más tendrán 
respuesta en el próximo capítulo de Dan 
Daré. 




Duque de Sesto, 50 — 28009-MADRID. Metro O’Donnell o Goya 
Tel.: (91)274 75 02-(91) 275 9616 


SOFTWARE: POR CADA DOS PROGRAMAS, GRATIS A ELEGIR: 

- CASCOS STEREO 

- RELOJ DIGITAL + BOLIGRAFO LACADO 

- CALCULADORA EXTRAPLANA 



COMPATIBLE PC-IBM 640 K + 2 BOCAS -l- MONITOR 149.900 PTAS. 

COMMODORE 1 28 + SOFTWARE DE REGALO 54.900 PTAS. 

COMMODORE 1 28 + TECLADO MUSICAL + SOFT REGALO 57.900 PTAS. 


FISTII.875 

DEE STRIKE.875 

SUPER SOCCER.875 

TERRA CREST.875 

DOUBLE TAKE.875 

SHORT CIRCUIT.875 

GAUNTLET.875 


ARMYMOVES.875 

BREAKTHRU.875 

MILLION III.1.750 

XEVIOUS.875 

1OTH FRAME.1-200 

LEADERBOARD.1-200 

EXPRESS RAIDER.875 


ACE OFACES. 1.200 

IMPOSSABALL.875 

SIGMA7.875 

BAZZOKA BILL.875 

DRAGON’S LAIR II.875 

SHADOW SKIMMER.875 

¡¡NOVEDADES KONAMI 1.850 PTAS.!! 


IMPRESORAS 20% DTO. SOBRE P.V.P. 


¡¡OFERTAS JOYSTICKÜ 


QUICK SHOT I 


995 PTAS. 


QUICK SHOT II 
QUICK SHOT V 
KONIX (microswitch) 


1.195 PTAS. 
1.395 PTAS. 
2.595 PTAS. 


CADENA MUSICAL 
VIDEO VHS AKAI 
RADIOCASSETTE STEREO 


27.900 PTAS. 

79.900 PTAS. 
6.895 PTAS. 


DISKETTE 5 1 /4" DC/DD 190 PTAS. 

CINTA C-l 5 ESPEC. 69 PTAS. 

RATON PARA PANTALLA 6.900 PTAS. 

SPECTRUM PLUS + CASCOS MUSICA STEREO 19.800 PTAS. INC. IVA 
SANYO MSX 64 K 28.900 PTAS. 


PEDIDOS CONTRA REEMBOLSO SIN NINGUN GASTO DE ENVIO A PARTIR 
DE 1 200 PTAS. LLAMA POR TELEFONO. ADELANTAS TRES DIAS TU PEDIDO. 
TEL.: (91) 274 75 02 - (91) 275 96 16 (DURANTE LAS 24 HORAS). 
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FICHA TECNICA 


NOMBRE 

DAN DARE, PILOTO DEL FUTURO 


PRECIO 

1.500 PTAS. 


SOPORTE 

CASETE 

TIPO 

ACCION Y AVENTURAS 


MODELO 

C-64, C-128 

OBSERVACIONES 

NINGUNA 


Dan Daré, un juego para mentes 
rápidas que no ofrece un 
momento de tranquilidad 

Los ingleses han visto en Dan Daré, Piloto 
del Futuro, un gran programa, puesto que 
ha encabezado las listas de superventas 
software británicos. Aunque en nuestro 
país, hasta el momento, no cuenta con una 
aceptación tan masiva, nos vemos prácti¬ 
camente obligados a comentar un progra¬ 
ma con unas características tan destaca¬ 
das como las de éste. 

Por ejemplo, son encomiables los deste¬ 
llos de humor, la complejidad del juego, la 
prodigiosa sensación en tres dimensiones 
que muestran los bien elaborados gráficos. 
Pero sobre todo, llaman la atención algu¬ 
nos pequeños detalles, como el gracioso 
movimiento de Stripey o la actitud de algu¬ 
nos Treens antes de ser derrotados. 

No cuesta demasiado hablar de la es¬ 
pléndida calidad del programa, aunque 
también podemos comentar ciertas inexac¬ 
titudes en la programación del juego y en 


la traducción al castellano de algún que 
otro mensaje, aunque de carácter muy leve. 
Como de costumbre, reconocemos la bri¬ 
llante labor de Dro Soft al traducir no sólo 
las instrucciones del juego, sino también los 
mensajes en la pantalla; teniendo en cuen¬ 
ta que en la traducción de mensajes no se 
puede exceder en longitud los originales, 
en muchas ocasiones este trabajo se hace 


más que complejo, dada la afición inglesa 
a las abreviaturas y las palabras cortas, no 
compartida por los españoles. 

Se trata de un juego interesante, original 
y vertiginoso (hay que pensar y actuar con 
rapidez, de lo contrarío jamás completare¬ 
mos la misión). Tal vez falte algo de acción 
en el transcurso de las peleas entre Dan 
Daré y los Treens. 
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SKI 


CHISPA 


Todos sabemos lo que hay 
que hacer para redefinir ca¬ 
racteres en el C-64, pero, ¿y 
en el C-128? Pues es incluso 
más fácil que en el 64/ para 
ello habrá que seguir 3 pasos 
fundamentales: 

1. La posición 2604 del 
C128 es similar a la 53272 del 
C-64. Este byte controla la di¬ 
rección de base del juego de 
caracteres; por ejemplo, para 
situar esta dirección en 14336, 
habrá que poner a uno los bits 
1-3 de este byte con: POKE 
2604, (PEEK(2604)AND 
240JOR14. 

2. El bit 2 de la posición 
217 nos dice si los caracteres 
serán leídos de la ROM o de 
la RAM, para colocar este bit 
a uno se ejecutará: POKE 
217,PEEK(217)OR4. 

3. Por último, no es necesa¬ 
rio desactivar la lectura del te¬ 
clado para copiar el juego de 
caracteres a la RAM; el co¬ 
mando BANK, permite la lec¬ 
tura directa. Lo único que hay 
que saber es que los caracte¬ 
res empiezan en la posición 
53248 del BANK 14. 

El siguiente programa de 
ejemplo, cambia el carácter 
«<»» por un cuadrado: 

10 FAST:POKE2604,(PEEK 
(2604)AND240)OR 14 
20 POKE217,PEEK(217)OR4 
30 F0RM53248T055295: 
BANK14:X=PEEK(I);BANK0: 
POKEI—38912,X:NEXT:SLOW 
40 FORM4336TO14343: 
READA:POKEI,A:NEXT 
50 DATA 255,129,129,129, 
129,129,129,255 

Otro método bastante rápi¬ 
do de copia (sobre todo si te¬ 
nemos la unidad 1571), con¬ 
siste en grabar en disco la zo¬ 
na de los caracteres: BSA 
VE«CARROM»,Bl 4, 
P53248TOP 55295. Una 


vez grabado, para cargarlos 
a partir de 14336 simplemen¬ 
te hacemos: BLOAD 

«CARROM»,BO,P14336. 

Cuyo efecto es obvio. 


CHISPA: 


Para realizar un listado por 
impresora, la secuencia de ini¬ 
cio la sabe todo el mundo: 
OPEN4,4:CMD4:LIST. Pero 
lo que no es tan conocido, es 
que con esta secuencia no 
ganamos el control en el orde¬ 
nador por completo; algunos 
para lograrlo, teclean cual¬ 
quier cosa, generando así un 
error y con ello el efecto de¬ 
seado. Pero como hay que ha¬ 
cer las cosas bien (y en infor¬ 
mática más), la secuencia co¬ 
rrecta es: PRINT&4: CLOSE4. 
Con esto, conseguimos que el 
buffer de la impresora se vacíe 
PRINT #4), y que el canal 
quede correctamente cerrado 
(CLOSE4). 


CHISPA 


En el C-64, la función FRE 
con cualquier argumento, nos 
dice la cantidad libre de me¬ 
moria RAM disponible, tanto 
para programas como para 
variables; pero éste no es el 
caso del C-128, que puede d¡- 
reccionar 16 bancos de 64 
Kbytes cada uno. 

En el C-128 sin expansión, 
el banco 0 se encarga de al¬ 
macenar los programas, el 
banco 1 las variables, el juego 
de caracteres está en el ban¬ 
co 14 y la ROM y chips de 1/0 
están en el banco 15. El resto 
de los bancos están prepara¬ 
dos para expansiones de me¬ 
moria y cartuchos. Por ello, la 
función FRE nos dará distinto 
resultado si utilizamos un ar¬ 
gumento 0IFREI0)) o 1 (FREI 1))’ 

En el primer caso, veremos 
los bytes disponibles para 


programas y en el segundo, 
los de la zona de variables. 
Sumando estos dos valores al 
conectar, tendremos los 
122365 bytes que se anun¬ 
cian en la pantalla de presen¬ 
tación. 


CHISPA: 


Por la importancia que tie¬ 
ne, esta chispa quiere ser un 
aviso para los propietarios de 
la unidad de disco 1541 de 
Commodore. 

Se trata de evitar en lo posi¬ 
ble la opción de grabar reem¬ 
plazando (SAVE« (»:...»,8). 
Usualmente, funciona bien, 
pero debido a un error en la 
ROM interna de la unidad de 
disco, los buffers de memoria 
se pueden escribir errónea¬ 
mente en el disco; en concre¬ 
to, lo que se puede alterar, es 
la RAM del disco, con el peli¬ 
gro potencial que esto encie¬ 
rra. 

Lo mejor es grabar el pro¬ 
grama con otro nombre, y 
después borrar el antiguo y re¬ 
nombrar el nuevo. Si no hay 
espacio para el nuevo nom¬ 
bre, borremos el programa 
antiguo y grabemos con el 
mismo nombre el programa 
modificado. 

El problema más grave que 
se puede presentar emplean¬ 
do SAVE&REPLACE (la opción 
peligrosa), se puede apreciar 
con el siguiente ejemplo: 

Tenemos en disco un pro¬ 
grama llamado ROJO que 
modificamos y queremos 
guardar con el mismo nom¬ 
bre; utilizamos para ello: SA 
VE« fa :ROJO»,8. Después, 
diseñamos otro programa que 
llamaremos VERDE, y lo gra¬ 
bamos normalmente con: SA 
VE«VERDE»,8. 

Ahora, queremos cargar el 
programa VERDE con: 
LOAD«VERDE»,8. La carga 


se efectúa sin problemas, pero 
si queremos cargar el ROJO, 
¡Oh sorpresa!, obtenemos el 
programa VERDE de nuevo. 
¿Cómo dices?, ¿qué ya te ha 
pasado esto?; pues ya sabes 
la fuente del problema. Insisti¬ 
mos que esto no ocurre SIEM¬ 
PRE, sino bajo algunas circuns¬ 
tancias. Tú decides el camino 
a tomar. 


CHISPA 


Para conseguir una señal 
de audio, con un monitor co¬ 
nectado a la salida RGB del 
C-128, son necesarias dos co¬ 
sas: 

1. Que el monitor tenga un 
altavoz incorporado (¡nor¬ 
mal!). 

2. Conseguir la señal de la 
salida para 40 columnas, da¬ 
do que el chip correspondien¬ 
te de la salida RGB, sólo se en¬ 
carga de señales de vídeo; 
además, en modo 80 colum¬ 
nas, el audio sigue siendo váli¬ 
do de la salida 40 columnas. 


CHISPA 


Para deshabilitar el cambio 
entre Mayúsculas-Gráficos y 
Minúsculas-Mayúsculas (pul¬ 
sando simultáneamente la te¬ 
cla que contiene el logotipo 
Commodore y la tecla SHIFT) 
en el C-64, VIC-20, C16 y Plus- 
4, se emplea PRINTCHR$(8), y 
PRINTCHR$(9) para habilitar 
el cambio. Sin embargo, en el 
C-128 se utilizan CHR$(11) 
para deshabilitar y CHR$( 12) 
para habilitar. 

En todo caso, usando 
CHR$( 142) en cualquier orde¬ 
nador Commodore, consegui¬ 
mos la impresión en mayúscu¬ 
las y mediante CHR$( 14), ob¬ 
tendremos siempre las minús¬ 
culas. 
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Aplicación contable de Cimex Electrónica 

Supercon ta 6a 


SUPERCONTA 64 es un programa de Contabilidad desarrollado por 

CIMEX ELECTRONICA, adaptado al Plan General Contable, cuya carac¬ 
terística principal es la gran velocidad de ejecución, debido a su confección 
integral en código máquina. 


miento la Contabilidad por primera vez, es 
decir, sin haberse definido Plan de Cuentas 
alguno, es necesario cargar el programa 
«inicio», contenido en el disquete original, 
de la forma: 



ntre sus características prin¬ 
cipales, podemos hablar de 
la cuenta de IVA, cierre auto¬ 
mático, y la posibilidad de 
introducción de asientos con 


fechas atrasadas. 


Fronteras de la aplicación 


La única limitación efectiva, en lo que a 
número máximo de registros se refiere, es la 
de 475 para el número de cuentas conta¬ 
bles activas,- y 305 para el número de apun¬ 
tes introducidos en el día. 

En cuanto a la información histórica de 
cuentas se refiere (Mayor o extractos de 
cuentas), pueden generarse tantos discos 
de datos como sea necesario, contenién¬ 
dose en cada uno de ellos hasta 5300 
apuntes. 


Hardware y puesta en marcha 

Los elementos hardware necesarios pa¬ 
ra la puesta en funcionamiento del progra¬ 
ma son: ordenador COMMODORE 64, 
unidad de disco 1541 e impresora compati¬ 
ble COMMODORE. 

La Puesta en marcha se consigue con: 

LOAD «*»,8,1 

Tras lo cual (debiendo estar la impresora 
apagada) el programa se carga y autoeje- 
cuta. 


Inicializaciones 


Cuando trata de ponerse en funciona- 
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LOAD «INICIO»,8, 1 

Nada mas entrar en este programa, y 
tras un mensaje de confirmación, debere¬ 
mos introducir un disco virgen, sobre el cual 
se grabará la estructura vacía de los fiche¬ 
ros de datos. 

Después de concluida esta operación, la 
siguiente será entrar en el programa de la 
forma: 

LOAD «*»,8,1 

para comenzar con la definición del Plan 
de Cuentas. 

Tras esto, la siguiente acción a tomar, en 
consecuencia, deberá ser efectuar el asien¬ 
to de apertura. Para realizar esta función, 
existe un programa específico en el disco 
de programas denominado «saldos». 

De forma análoga a como comentamos 
anteriormente, para cargar el mencionado 
programa deberemos apagar y volver a 
encender la máquina, tecleando: 

LOAD «SALDOS»,8,l 


Menú general de la aplicación 

La aplicación está regida por un Menú 
General, en el cual se encuentra una breve 
reseña de las posibles operaciones a reali¬ 
zar, precedidas por un número. 

Las opciones disponibles son: Asientos 
(altas o bajas). Cuentas (altas, bajas o mo¬ 
dificaciones), Listados (asientos por fecha o 
por número o cuentas), Extractos, Balance 
de Sumas y Saldos, Balance de Situación, 
Listados IVA, Varios (cuenta de explotación, 
cierre automático, programación balance 
y cambio de disco) y Fin (actualizar fiche¬ 
ros). 

Asientos 


En la entrada de asientos es necesario in¬ 
troducir la fecha, en el formato de día y 
mes. Hecho esto, el Sistema numera auto¬ 
máticamente el asiento, indicando a su vez 
el número de línea y el descuadre existente 


hasta el momento. 

A continuación, el cursor se posiciona en 
cuenta de DEBE (6 dígitos), pudiendo saltar 
al HABER si la cuenta es de este epígrafe. En 
cualquier caso, al teclear el código de una 
cuenta, su título aparece en la parte inferior 
de la pantalla, como comprobación, indi¬ 
cándose con un mensaje de error la inexis¬ 
tencia de alguna. 

A este mensaje podemos responder vali¬ 
dando lo tecleado, en cuyo caso se nos da 
acceso automáticamente a la opción de al¬ 
tas de cuentas, para introducir las que desee¬ 
mos. En caso contrario, se nos permite te¬ 
clear nuevamente el código correcto de la 
cuenta. 

Con este sistema, es posible redactar 
asientos de partida/contrapartida simple, 
empleando una única línea de entrada de 
datos, con considerable ahorro de tiempo y 
espacio. Por otro lado, los asientos múltiples 
pueden ser igualmente redactados, que¬ 
dando en este caso siempre alguno de los 
epígrafes (DEBE o HABER) sin rellenar. 



' ear FINANCIERO 
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Cuentas 


Listados 


Después de indicar la cuenta o cuentas 
afectadas, el cursor se sitúa en el campo de 
concepto (14 caracteres) y, por último, en 
importe (ocho dígitos). 

Si llegados a este punto el importe del 
descuadre se hace cero, el sistema interpre¬ 
ta que el asiento ha quedado cuadrado, y 
por lo tanto cerrado, por lo que pasa auto¬ 
máticamente a la redacción del siguiente 
asiento. En caso contrario, se incrementa 
únicamente el número de línea, con objeto 
de seguir admitiendo apuntes del mismo 
asiento. 

En cualquier caso, con la pulsación de 
F1 , es posible volver al campo anterior pa¬ 
ra subsanar errores detectados en el mo¬ 
mento de la introducción de los datos. 

Para dar de baja un asiento, basta con 
identificarlo por su número y validar el men¬ 
saje de confirmación correspondiente. 


La introducción de cuentas se realiza de 
la forma más fácil: determinando su código 
(seis dígitos) y su descripción (24 caracte¬ 
res). No obstante, en el caso de no existir la 
cuenta de Mayor correspondiente (3 dígi¬ 
tos) a la cuenta que tratamos de dar de al¬ 
ta, se nos pedirá también su código y des¬ 
cripción. 

La baja de cuentas es similar a la comen¬ 
tada para los apuntes. Sin embargo, no se 
permite dar de baja cuentas que conten¬ 
gan apuntes. Por otro lado, al dar de baja 
una subcuenta única de una cuenta de 
Mayor, la propia cuenta de Mayor es dada 
de baja automáticamente. En este fichero 
se permite también la modificación de títu¬ 
los, tanto para las cuentas de 3 como de 6 
dígitos. 


Podemos obtener listados de asientos 
por fecha o por número. Así mismo, puede 
extraerse un listado de cuentas, especifi¬ 
cando límite inferior y superior. En este lista¬ 
do aparece el número de cuenta, título, 
acumulados de DEBE y HABER y SALDO. 


Dentro de esta opción, podemos obte¬ 
ner un listado de detalle, de los apuntes 
efectuados sobre una cuenta, entre las fe¬ 
chas que especifiquemos. En este listado se 
incluyen: fecha, asiento, línea, concepto, 
HABER y SALDO. 


Extractos 



Listados de Iva 


Para poder obtener el listado de IVA, los 
asientos deben introducirse según el si¬ 
guiente criterio: 

1. El número de factura se toma de las 
últimas posiciones de la descripción. 

2. La fecha se corresponde con la fe¬ 
cha del asiento. 


Antes de seleccionar esta opción del 
Menú, debemos cerciorarnos de que la 
cuenta de pérdidas y ganancias (890000), 
haya sido dada de alta, lo cual se hace au¬ 
tomáticamente en la fase de generación 
inicial del programa. 

Este balance no es necesario progra¬ 
marlo, puesto que se encuentra adaptado* 
al estándar del Plan General de Cuentas. A 
pesar de ello, si al efectuar el listado se de¬ 
tecta alguna cuenta que no puede encua¬ 
drarse adecuadamente, el programa se 
encarga de interrogarnos por la masa pa¬ 
trimonial a que corresponde. 


Balance de sumas y saldos 


En este apartado, cabe seleccionar dos 
opciones: todas las cuentas, o sólo las cuen- 
de mayor. 

Uk£ñ el primer caso, se incluyen en el lista- 
cuentas de 3 y 6 dígitos. En el segun¬ 
do, sólo las de Mayor (3 dígitos). 
En cualquier caso, este listado in¬ 
cluye código de cuenta, descrip¬ 
ción, acumulado de DEBE, acu¬ 
mulado de HABER y SALDO. 


Balance de situación 


* 













PROFESIONAL 



3. El nombre de cliente o proveedor se 
toma de las cuentas de clientes o provee¬ 
dores. De no existir ninguno de éstos, se 
adopta el nombre de la primera cuenta del 
asiento que no comience por 60,70,57,47 
ó 2. 

4. La base imponible se calcula como 
el total del asiento menos el importe del IVA. 
El programa comprueba, sin embargo, que 
el resultado obtenido sea coherente con los 
diferentes tipos aplicables actualmente, in¬ 
cluyendo la posibilidad de recargo de 
equivalencia. 

En resumen, puede obtenerse de esta 
forma, los libros registro de IVA soportado y 
repercutido, con los campos: número, fe¬ 
cha, proveedor o cliente, base, tipo, cuota, 
recargo de equivalencia y total factura. 


Varios 


La cuenta de explotación lista las cuen¬ 
tas de los grupos 6 y 7, obteniendo el cargo 
o abono correspondiente a la cuenta de 
explotación (800000). 

La opción de asiento de cierre, efectúa la 
reclasificación de saldos de las cuentas de 
forma real, es decir, se encarga de saldar 
las cuentas de gestión (grupos ó y 7), con 
cargo o abono a la cuenta de explotación. 
Es preciso haber efectuado con anteriori¬ 
dad a esta opción, la regularización de 
existencias de fin de año. 

La opción de programación de balance, 
tiene por objeto poder alterar esta progra¬ 
mación estándar inicial. 

La opción de cambio de disco, es nece¬ 
saria al agotar la capacidad de apuntes de 
uno de ellos. 


Actualización de ficheros 


Finalmente, debe recurñrse a este punto, 


una vez concluida la introducción, ba¬ 
ja o modificación de asientos y cuentas. La 
intención de este apartado, es la de actua¬ 
lizar los datos contenidos en el fichero inter¬ 
medio de apuntes, para incluirlos en el his¬ 
tórico de movimientos. 


Título: Superconta 64 
Precio: 19.900 ptas. 

Distribuidor: Cimex Electrónica 

P° Florida Blanca, 14. Entlo. 3 
08015 BARCELONA 
Tel. : (93) 224 34 22 
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TU MICRO 
COMMODORE ha 
creado el 
revolucionaría 
sistema de 
introducción de 
programas FUERA 
ERRORES. Este nos 
permitirá 
introducir, sin 
temor alguno al 
esfuerzo inútil, 
cualguier listado 
por largo y 
complicado aue 
parezca. 


Para adoptar los listados publicados bajo este sistema, 
deberemos seguir las siguientes normas: 

1) Es fundamental transcribir EXACTAMENTE el listado 
reproducido, incluyendo todos sus espacios, aunque se trate 
de separaciones entre número de instrucción y línea de ins¬ 
trucción. 

2) Todas las líneas finalizarán con un número de tres 
dígitos, encerrado entre guiones, que NO deberá ser introdu¬ 
cido, puesto que no forma parte del programa, sino que tiene 
la finalidad de hacer funcionar el sistema FUERA ERRORES, 
según veremos más adelante. Para evitar equivocaciones, 
dicha cifra entre guiones se sitúa en el margen derecho del 
final de la línea BASIC a la cual corresponde, a una distancia 
prudencial del mismo. 

3) Para facilitar la introducción de símbolos difícilmente 
interpretables, se procede a la siguiente representación en 
los listados. 

- Las letras aparecidas entre menor y mayor deberán 
ser introducidas con pulsación simultánea de la tecla COM¬ 
MODORE y la letra representada. Ej. : < M > =C0MM0D0- 
RE M. 

- Las letras aparecidas entre barras verticales deberán 
ser introducidas como pulsación simultánea de la tecla 
SHIFT y la letra representada. Ej.:IKI= SHIFT K. 

- Entre corchetes simples se representarán los símbolos 
que se obtienen por pulsación directa de la tecla, aunque ló¬ 
gicamente, este caso sólo se dará para indicar las sucesio¬ 
nes de más de una letra. Así por ejemplo, la introducción de 
5 asteriscos se representaría por [5*]. 

- Para la repetición de símbolos obtenidos mediante las 
teclas COMMODORE o SHIFT, se seguirá una combinación 
de las tres normas anteriormente citadas. Así por ejemplo, la 
introducción de 10 símbolos COMMODORE H, se represen¬ 
taría por [ < 10 H > ]. 

- Para evitar confusiones, cuando se utilice el sistema 
de representación de sucesiones de carácter, y éste sea un 
espacio, se utilizará la abreviatura ESP. [15 ESP] = 15 espa¬ 
cios. 

- Los caracteres de control, tales como desplazamientos 
del cursor, colores, estados de reversa y funciones, se sim¬ 
bolizarán por una abreviatura de tres letras Idos más un es¬ 
pacio en el caso de las funciones) encerradas entre llaves, tal 
como se señala en la tabla adjunta. 

Para introducir cualquier listado por el sistema FUERA 
ERRORES, deberemos entrar previamente y ejecutar el lista¬ 
do BASIC que aparece en la página siguiente por lo cual es 
recomendable conservar una copia grabada del mismo, para 
sucesivas ocasiones. Una vez introducido este listado, ya sea 


por el teclado, o a través de cinta o disco, debemos ejecutar¬ 
lo con RUN. Instantes más tarde aparecerá en la pantalla el 
mensaje FUERA ERRORES! y el cursor libre para la entra¬ 
da de programas, con el tradicional READY. Por encima, lo 
cual indicará la activación del sistema de depuración de 
errores. 

En virtud al NEW que finaliza línea 20 del programa 
¡FUERA ERRORES!, éste habrá desaparecido de la memoria, 
y seremos libres para introducir cualquiera de los programas 
listados en la sección TECLA A TECLA de cualquier núme¬ 
ro de nuestra revista, o incluso aquellos que apareciendo en 
otras secciones se acojan a este sistema. Así pues, si el pro¬ 
grama ¡FUERA ERRORES! ha desaparecido de la memoria, 
¿qué hemos conseguido ejecutándolo? Bien, la respuesta se 
llama informáticamente INTERRUPCION: se trata de una 
técnica de programación en código máquina que permite 
que el ordenador efectúe prácticamente dos trabajos a un 
tiempo, o más correctamente, que ejecute determinada tarea 
de forma automática, sin necesidad de que le prestemos una 
atención constante, de forma similar al proceso de respira¬ 
ción en un humano. 

Efectivamente, aunque el sopone BASIC ha desaparecido 
de la memoria, antes de (marcharse) ha dejado funcionando 
en modo interrupción la pequeña rutina en código máquina 
que se hallaba en sus DATAS. Para comprobarlo pulsa RE¬ 
TURN; observarás algo muy extraño: tu ordenador no se 
comporta normalmente, no sólo desciende una línea el cur¬ 
sor, sino que además hace aparecer un número en la esqui¬ 
na superior izquierda de la pantalla. A continuación veremos 
como emplearlo. 

Cada vez que pulsemos RETURN, aparecerá un número 
en la mencionada zona de la pantalla, y éste corresponderá 
con la instrucción que hayamos introducido. Esto forma pane 
del sistema de FUERA ERRORES. Cuando introduzcamos 
cualquier línea de un listado de este tipo, deberemos fijarnos 
en el número que aparece al pulsar RETURN de fin de línea; 
si éste coincide con el que aparece en el listado al final de la 
línea, ésta habrá sido introducida correctamente, en caso 
contrario existe algún error de tecleado que debemos modi¬ 
ficar. Para modificar una instrucción errónea, no tenemos ni 
tan siquiera que volver a teclearla si no queremos, bastará 
sencillamente con modificar el carácter o caracteres erró¬ 
neos como siempre hacemos, hasta que coincida el número 
de verificación que se presentará al pulsar RETURN. 

Así pues, el sistema FUERA ERRORES se compone de dos 
partes: una codificación especial de los listados que facilitan 
su introducción, evitando los errores al confundir los carac¬ 
teres gráficos, de control, etc., y un sistema de verificación 
de líneas que nos advierte en el preciso instante de introducir 
una de estas, que está mal tecleada. 

Ahora bien, el empleo de estos dos sistemas no quiere de¬ 
cir que nos encontremos ante un BASIC diferente al de COM¬ 
MODORE 64. Este no ha cambiado, hace exactamente las 
mismas cosas de siempre,- simplemente hemos cambiado la 
forma de hacer los listados. En cuanto al misterioso número 
que aparece en la esquina de la pantalla no es más que una 
simple suma de comprobación, lo que se conoce técnica¬ 
mente como un CHECKSUM. La rutina en código máquina de 
interrupción suma los valores de los caracteres que entra- 
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TABLA DE INTERPRETACION DE CODIGOS DE CONTROL 

ABR 

SIGNIFICADO 

OBTENCION 

ABR 

SIGNIFICADO 

OBTENCION 

HOM 

HOME 

CLR/HOME 

WHT 

WHITE (BLANCO) 

CTRL 2 

CLR 

OLEAR + HOME 

SHIFT CLR/HOME 

RED 

RED (ROJO) 

CTRL 3 

ABJ 

CURSOR ABAJO 

CRSR VERTICAL 

CYN 

CYAN (CIAN) 

CTRL 4 

ARB 

CURSOR ARRIBA 

SHIFT CRSR 

PUR 

PUR PPL E (PURPURA) 

CTRL 5 


VERTICAL 

CRSR HORIZONTAL 

GRN 

GREEN (VERDE) 

CTRL 6 

DCH 

CURSOR DERECHA 

BLU 

YEL 

BLUE (AZUL) 

YELLOW (AMARILLO) 

CTRL 7 

CTRL 8 

IZQ 

CURSOR IZQUIERDA 

SHIFT CSRS 

NRJ 

NARANJA 

COMMODORE1 



HORIZONTAL 

MRN 

MARRON 

COMMODORE 2 

RON 

REVERSE ON 

CTRL 9 

RCL 

ROJO CLARO 

COMMODORE 3 

ROF 

REVERSE OFF 

CTRL 0 

GR1 

GRIS 1 

COMMODORE 4 

F1 

FUNCION 1 

F1 

GR2 

GRIS 2 

COMMODORE 5 

F2 

F3 

FUNCION 2 

FUNCION 3 

SHIFT F1 

F3 

* VCL 

ACL 

GR3 

VERDE CLARO 

AZUL CLARO 

GRIS 3 

COMMODORE 6 
COMMODORE 7 
COMMODORE 8 

F4 

FUNCION 4 

SHIFT F3 

P1 

TZ 

SHIFT t 

F5 

FUNCION 5 

F5 

- 

T 

t 

F6 

FUNCION 6 

SHIFT F5 

\ 

£ 

£ 

F7 

FUNCION 7 

F7 

STP 

STOP 

RUN/STOP 

F8 

FUNCION 8 

SHIFT F7 

INS 

INSERT 

INST/DEL 

BLK 

BLACK (NEGRO) 

CTRL 1 

— 


— 


mos en cada línea que introducimos, aplicándoles un módu¬ 
lo 256, es decir, volviendo a cero cada vez que su suma par¬ 
cial supera el 255, de este modo se crea un número entre 0 
y 255 dependiente directamente de los caracteres introduci¬ 
dos. Así pues, es prácticamente imposible que una sucesión 
de errores den por casualidad ese número, mientras que 
siempre que la línea esté correctamente introducida obten¬ 
dremos el mismo código que nosotros hallamos por igual 
sistema y añadimos al final de cada línea al realizar el listado 
del programa. 

Por tanto, el misterioso número no es tampoco una modi¬ 
ficación del BASIC de COMMODORE, sino simplemente un 
pequeño truco para la comprobación de que las líneas han 
sido bien introducidas. Propiamente no nos evita cometer 
errores de tecleado, sino que simplemente nos advierte in¬ 
mediatamente en qué línea los hemos introducido. 

Para desactivar el sistema sólo deberemos pulsar RUN/ 
STOP+RESTORE, y si por cualquier motivo nos interesara 
reactivarlo, podríamos ejecutar SYS 822, siempre y cuando 
se encuentre el código máquina en la memoria, lógicamente. 

¡ADVERTENCIA! Puesto que el código máquina se en¬ 


cuentra ubicado en el buffer flel casete, es imprescindible 
desactivarlo (RUN/STOP+RESTORE) antes de realizar 
cualquier operación con dicho periférico. 


Utilización del 
casete con fuera 
errores 

Si queremos introducir parte de un programa, para conti¬ 
nuar posteriormente el trabajo emprendido, sin perder por 
supuesto la enorme ventaja del FUERA ERRORES deberemos 
proceder de la siguiente forma: 

1. Desactivar el sistema FUERA ERRORES mediante la 
pulsación de RUN/STOP + RESTORE. 

2. Trasladar el código máquina desde su ubicación en el 


buffer del casete hasta otro punto desocupado en la memo- I 
ria RAM (por ejemplo 49152). Para ello sólo hemos de sa- ¡ 
ber que ocupa 114 bytes desde 822 (inclusive). Una sencilla I 
rutina que efectúe el trabajo de reubicación puede sen FO- I 
RI=0T0113:P0KE49152+l,PEEK(822+l):NEXT. 

3. Realizar la operación correspondiente con el casete,- 

ya sea grabar una copia de seguridad de lo introducido en la i 
memoria hasta el momento, ya sea cargar el casete una par- I 
te ya grabada del programa. 

4. Restablecer FUERA ERRORES a su punto original. Si¬ 
guiendo el caso de la línea de ejemplo anterior: FORI= 1 
OT0113:P0KE822+I.PEEK(49152+l):NEXT. 

5. Reactivar el sistema FUERA ERRORES mediante SYS I 
822 (esta vez no aparecerá mensaje alguno, aunque al pul¬ 
sar RETURN comprobaremos que aparecen las cifras de 8 
control en la esquina superior izquierda). Lógicamente, los I 
pasos 4 y 5 no son necesarios si después de una grabación I 
se va a apagar el ordenador, y sólo se llevarán a cabo des¬ 
pués de las cargas, o si tras la grabación de una copia de se¬ 
guridad del programa, deseamos continuar introduciéndolo I 
acto seguido. 


1O FORI =82210935 :READA:C=C+A: POKEI, A:NEXT 

20 IFC<>15254THENPRINTCHR*<147)"ATENCION!, HAY UN ERROR EN LOS DATOS":END 
30 PRINTCHR*(147)TAB(213)"FUERA ERRORES!"sSYS822:NEW 

3, 141,37,3, 169,69, 141,36,3, 169,0, 13.3,254,96,32,87,241,133,251 
252,132,253,8,201,13,240,13,24,101,254,133,254,165,251,166,252 
253,40,96,169,13,32,210,255,165,214,141,176,3,206,176,3,169,0 
9,18,32,210,255,169,19,32,210,255,169,45,32,210,255,166 
0,176,5,169,48,32,210,255,224,10,176,5,169,48,32,210,255 
150 DATA 169,0,133,254,32,205,189,169,45,32,210,255,173,176,3,133,214,76,88,3 


100 

DATA 

169,3, 1- 

110 

DATA 

134,252 

120 

DATA 

164,253 

130 

DATA 

133,216 

140 

DATA 

254,224 

150 

DATA 

169,0, i: 


TU MICRO COMMODORE 21 














TECLA A TECLA 


La brocha 
fantástica 


Una brocha que no existe, en un mundo lleno de peligros que acechan 

constantemente, para salvar la causa de los pintores de brocha gorda. Sin 

lugar a dudas, se trata de la brocha fantástica (the fantastíc brocha), un inge- 

nio mecánico tan increíble como ficticio. 


a princesa del reino (¿qué 
reino? ¡bah!, uno cualquiera) 
quiere habitar de nuevo su 
residencia de verano: un 
viejo edificio plagado de 
fantasmas, espectros, entidades ectoplás- 
micas y demás sucedáneos. Ahora bien, 



















































TECLA A TECLA 


una auténtica reina ha de vivir siempre en 
un habitat digno de su real condición; por 
este motivo, ha encargado a los artesanos 
de palacio la restauración del antiguo mo¬ 
numento. 

Pero he aquí, que los restauradores no 
están dispuestos a batirse en duelo, contra 
todos los seres del otro mundo que deam¬ 
bulan por los pasillos de la residencia. Co¬ 
mo resultado de tan cobarde y justificado 
comportamiento, la princesita cayó enfer¬ 
ma (típico ya en este tipo de cuentos), sumi¬ 
da en la tristeza, el abatimiento y las ganas 
de cambiar de palacio. Hasta tal punto ha¬ 
bía empeorado su salud, que los médicos 
estimaron oportuno ofrecer una sustancio¬ 
sa recompensa a la persona capaz de sa¬ 
tisfacer sus palaciegos deseos. El premio 
era nada más y nada menos que una des- 
gravación del 25% a la hora de hacer la 
declaración de la renta. 

Pensando en el 25%, muchos intentaron 
arreglar la residencia de verano, aunque 
todos fracasaron en el empeño. Algunos se 
volvieron locos, otros perdieron la razón y el 


resto acabó desquiciado. Debía ser un cu¬ 
rioso hombrecillo, famoso por su habilidad 
para crear aparatos que le permitieran evi¬ 
tar todo esfuerzo físico, quien diera con la 
solución adecuada: «no hace falta que en¬ 
tre en el castillo, puedo utilizar uno de mis 
inventos». 

Manual de usuario de la 
brocha fantástica 

Abrigado por tanto optimismo, el hom¬ 
brecillo comenzó a trabajar inmediatamen¬ 
te en un invento revolucionario: la brocha 
fantástica; un ingenio mecánico operado a 
distancia, capaz de pintar suelos y paredes 
con gran facilidad. Había incorporado a la 
brocha dos dispositivos especiales: un Tur¬ 
bo Boost para pintar más depñsa y un m¡- 
crocomputador de madera denominado 
Kitt. Evidentemente, ninguno de ellos llegó a 
funcionar nunca. 

No obstante, este invento representaba 
la única oportunidad de conseguir la ansia¬ 


da recompensa, de modo que se armó de 
valor y decidió intentarlo. Para ello conectó 
un joystick al port 2 de su Commodore 64, 
sabiendo de antemano que los movimien¬ 
tos de la brocha se correspondían con los 
del joystick. La sorpresa vino luego, cuando 
decidió hacer uso del Turbo Boost, ya que 
en lugar de producirse una explosión (hu¬ 
biera sido lo más normal), descubrió que 
detenía el tiempo. Curiosa característica. 

Cuando empezó a pintar, había sólo un 
fantasma cerca de la brocha, pero a medi¬ 
da que pasaba de unas salas a otras el nú¬ 
mero de enemigos aumentaba. Por si esto 
fuera poco, la brocha fantástica alcanza¬ 
ba una temperatura tan alta que las alca¬ 
chofas de su interior explotaban cuando el 
contador de tiempo llegaba a cero. A nues¬ 
tro hombrecillo se le estaban complicando 
mucho las cosas, pero ya dice el refrán que 
«la avaricia rompe el saco». NOTA: dicho 
refrán no guarda relación alguna con el 
resto de la historia, pero en fin, necesitába¬ 
mos un final vigoroso para una parrafada 
tan incongruente. 


LISTADO 

5 P0KE49154,1 

-232- 

2050 

IF J-126 THEN D-4:G0T0 2070 


-054- 

10 FOR N-0 Tü 66: READ A .-POKE 50000-*-N, A: NEXT N 


2060 

IF J-lll THEN GOSUB 5500 


-130- 


-148- 

2070 

0N D GOSUB 2100,2200,2300,2400 


-064- 

20 FOR N-0 TD 37:READ A:POKE 50100+N,A:NEXT N 


2080 

GOTO 2000 


-005- 


-140- 

2100 

P"X + 2+CY <r 40) + 1523 


-126- 

30 FOR N-0 TO 93:READ A:POKE 50200+N,A:NEXT N 


2110 

IF PEEKCP)<>160 0R PEEKCP+40)<>160 THEN 

RETURN 


-152- 




-000- 

40 FOR N-0 TO 140 : READ A: POKE 50300+N, A: NEXT N 


2120 

X-X+l:IF X-ll THEN 2150 


-069- 


-195- 

2130 

POKE 53262,PEEKC53262)+0 


-062- 

50 FOR N-0 TO 140:READ A:POKE 50500+N,A:NEXT N 


2140 

GOTO 2170 


-010- 


-198- 

2150 

POKE 53264,PEEKC53264)0R12B 


-029- 

60 FOR N-0 TO 43:READ A:POKE 49201+N,A:NEXT N 


2160 

POKE 53262,7 


-157- 


-159- 

2170 

C-P+54270 


-231- 

70 FOR N-0 TO 255:READ A:POKE 122B8+N,A:NEXT N 


2175 

IF CPEEKCC)AND15)-12 THEN RETURN 


-200- 


-210- 

2100 

I-I+1:P0KE C, 12 : POKE C+40, 12: GOTO 

5600 

-105- 

00 POKE 53269,0:POKE 53276,255 

-140- 

2200 

P“X+( C Y+2)*40)+1523 


-200- 

90 POKE 53285,4:POKE 53286,0 

-044- 

2210 

IF PEEKCP)<>160 0R PEEKCP+1)<>160 

THEN 1 

RETURN 

100 FOR N-0 TO 3:POKE 53287+N.l 

-241- 




-206- 

110 POKE 2040+N,192:NEXT N 

-239- 

2220 

Y-Y+l 


-049- 

120 POKE 2047,194 

-153- 

2230 

POKE 53263,PEEKC53263)+8 


-065- 

130 POKE 53294,1:POKE 49219,1 

-006- 

2240 

C-54192+P 


-232- 

140 POKE 49152,0:POKE 709,192 

-094- 

2245 

IF CPEEKCC)AND15)"12 THEN RETURN 


-206- 

150 POKE 53264,0 

-101- 

2250 

I-I+1:P0KE 0,12:POKE C+l,12:GOTO 5600 

-132- 

160 L-PEEKC49154):P-0:T-900 

-024- 

2300 

P-X-1+CY»40)+1523 


-129- 

170 IF L>4 THEN L-4:T-T-L*10 

-116- 

2310 

IF PEEKCP)<>160 OR PEEKCP-40)<>160 THEN 

RETURN 

1000 G05UB 5000:POKE 49152,0 

-048- 




-002- 

1010 POKE 53262,175:POKE 53263,146 

-079- 

2320 

X-X-1:IF X-10 THEN 2350 


-074- 

1020 POKE 53248,175:POKE 53251,148 

-003- 

2330 

POKE 53262,PEEKC53262)-8 


-066- 

1030 POKE 53252,71:POKE 53254,39 

-236- 

2340 

GOTO 2370 


-014- 

1040 FOR N-0 TO 3:POKE 251+N,0:NEXT N 

-154- 

2350 

POKE 53262,255 


-003- 

1050 POKE 2,0:POKE 49153,0 

-174- 

2360 

POKE 53264,PEEKC53264)AND127 


-081- 

1060 POKE 53249,INTCRNDCTI)*B0)+76 

-155- 

2370 

C-P+54274 


-237- 

1070 POKE 53250,INTCRNDCTI)*20)+39 

-147- 

2375 

IF CPEEKCC)AND15)"12 THEN RETURN 


-210- 

1080 POKE 53253,INTCRNDCTI)*60)+110 

-193- 

2380 

I-I+1:P0KE C,12:POKE C-40,12:GOTO 

5600 

-107- 

1090 POKE 53255,INTCRNDCTI)*60)+76 

-159- 

2400 

P-X+C CY-1)*40)+1523 


-211- 

1100 FOR N-0 TO L-l:POKE 53269,CPEEKC53269)+2*N):NEXT 

2410 

IF PEEKCP:><>160 OR PEEKCP+l)<>160 

THEN 

RETURN 

N 

-175- 




-208- 

1105 POKE 53269,PEEKC53269)0R12B 

-030- 

2420 

Y-Y-l 


-053- 

1110 X-0:Y-0:D—0:POKE 49152,1 

-126- 

2430 

POKE 53263,PEEKC53263)-8 


-069- 

1120 I"CPEEKC49154)-1)*214 

-087- 

2440 

C-54352-P 


-232- 

2000 F-PEEKC53270)AND128:F-PEEKC53270)AND128:IF 

F THE 

2445 

IF CPEEKCC)AND15)-12 THEN RETURN 


-208- 

N 5700 

-102- 

2450 

I-I+1:P0KE 0,12:POKE C+l,12:GOTO 

5600 

-134- 

2005 T-T-1:PRINT"CH0MXR0NK7 DCH)”T:IF T-0 THEN 5700 

5000 

POKE 53280,2:POKE 53201,5:PRINTCHRSC142 

jCHRSCB) *’ 


-094- 

CHOM)CBLK)”;: 


-023- 

2010 J-PEEKC56320) 

-224- 

5010 

PRINT"CRON)TIEMPOC 16 ESPIPUNTUACIQNCS 'ESPl CROF) " 

2020 IF J-119 THEN D-1:G0T0 2070 

-050- 

¡ 



-106- 

2030 IF J-125 THEN D-2:G0T0 2070 

-049- 

5020 

PRINT"!0¡<38 Y>!P !” ; 


-180- 

2040 IF J-123 THEN 0-3:GOTO 2070 

-049- 

5030 

PRINT"<H><D><36 P><F><N> ,, ; 


-005- 
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TECLA A TECLA 


5040 PRINT"<H><N> CRON) CNRN)C36 ESP)CROF)íBLKXH><N>"; 

-250- 

5050 PRINT’’<HXN> CRON) CNRN)C36 ESP) CROF) CBLKXHXN> " ¡ 

-251- 

5060 PRINT”<HXN> CR0N)CNRN)C2 ESP!CROFICBLK):□!<13 Y> 

!P!CR0N)CNRN)C2 ESP)CROF)CBLK)5□í <13 Y> :P¡CRON)CNRN)C 
2 ESP)CROF)CBLKXHXN>”; -162- 

5070 PRINT”< H> < N> CRON) CNRN)C 2 ESP) CROF) CBLKX HX DX IB 
P> < P> CRON)CNRN)C 2 ESP! CROFI CBLK) ¡ L ¡< 12 P> < F> < N> CRON1 
CNRN)C2 ESP)CROF)CBLKXHXN>-130- 
5000 PR I NT ”<HXN>CR0N)CNRN)C2 ESP) CROFI CBLKX H>< N> CRO 
N)CNRN)C20 ESP) CROF) CBLKX HXN> CRON) CNRN)C 2 ESPXROF3 
CBLK}<HXN> ” ; -204- 

5090 PRINT”<H><N> CRON)CNRN)C2 ESP) CROF) CBLKX HXN> CRO 
NICNRN)C20 ESP) CROF) CBLKX HXN> CRON)CNRN)C2 ESP)CROF) 
CBLK5<H><N>”; -205- 

5100 PRI NT”< H><N> CRON)CNRN)C2 ESP)CROFICBLK}< H> < N> CRO 
N) CNRN)C2 ESP) CROFI CBLK3 ! O ¡ <9 Y> ! P ¡ CR0N)CNRN)C2 ESP)C 
ROF3CELK)¡0!<9 Y>1 P !CRON)CNRN)C2 ESP! CROFICELKXH><N> 
CRON)CnRN}C2 ESP)CROF)CBLK)<H><N>”; -179- 

5110 PRINT"<H><N> CRON)CNRN)C2 ESP)CROF)CBLKXH><N>CRO 
N) CNRN)C2 ESP)CR0F)CBLKXH>C9 ESPXN>CR0N)CMRN)C2 ESP 
)CROF)CBLKXH> CACL)C9 ESP) CBLK) <N> CRON) CNRN) C 2 ESPDCR 
OF)CBLKXH><N> CR0N)CNRN)C2 ESP) CROF)CBLK) <H><N> " ; 

-190- 

5120 PRINT”<H><N> CRON)CNRN)C2 ESP)CROF)CBLK)!L!< L> CRO 
N)CNRN)C2 ESP)CROF)CBLK)¡L!<9 P><P>CRON)CNRN)C2 ESP)C 
ROF)CBLK)¡L!<9 P><P>CRON)CNRN)C2 ESP)CROF)CBLK)¡L!<L> 
CR0N)CNRN)C2 ESP) CROF) CBLKX HX N> ” ; -067- 

5130 PRINT”<H><N>CRON)CNRN)C36 ESP)CROF)CBLKXH><N>"; 

-250- 

5140 PRINT”<HXN> C RON) CNRN) C 36 ESP) CROF) CBLKX H>< N> " ; 

-E51- 


5150 PRINT’’<H><N> CRON) CNRN)C2 ESP) CROF) CBLK) 1 Q !! P ! CRO 
N)CNRN)C2 ESP)CROF)CBLK)!O!<9 Y> !P1CRON)CNRN)C2 ESP)C 
ROF)CBLK)!O:<9 Y>¡P¡CRON)CNRN)C2 ESP)CROF)CBLK)¡O¡¡P¡ 
CRON)CNRN)C2 ESP)CROF)CBLKXH><N>”; -050- 
5160 PRINT”<H><N> CR0N)CNRN)C2 ESP)CROF)CBLKXH><N>CRO 
N) CNRN)C 2 ESP) CROF) CBLKXH> C9 ESPXN> CR0N)CNRN)C2 ESP 
) CROF) CBLKXH> C9 ESPXN> CR0N)CNRN)C2 ESP) CROF)CBLKXH 
><N> CRON)CNRN)C2 ESP)CROF)CBLKXH><N>”; -153- 
5170 PRINT”<H><N> CRON)CNRN)C2 ESP)CROF)CBLKXH><N>CRO 
N)CNRN)C2 ESP)CROF)CBLK)!L!<9 P><P>CRON)CNRN)C2 ESP)C 
ROF)CBLK)¡L!<9 P><P>CR0N)CNRN)C2 ESP)CROF)CBLKXH><N> 
CRON) CNRN)C2 ESP)CROF)CBLKXH><N> ” ; -240- 
5100 PRINT”<H><N> CR0N)CNRN)C2 ESP)CROF)CBLKXH><N>CRO 
N)CNRN)C 20 ESP)CROF)CBLK)<H><N> CRON)CNRN)C2 ESP)CROF) 
CBLKXH><N> ” ; -205- 
5190 PR I NT ’’< H>< N> CRON) CNRN) C 2 ESP) CROF) CBLK )< H>< N> CRO 
N) CNRN) C 20 ESP) CROF) CBLKXH><N> CRON) C NRN) C 2 ESP)CROF) 


CBLKXH><N>”; -206- 

5200 PRINT”<H><N> CRON)CNRN)C2 ESP)CROF)CBLKXH><C><12 
Y>!P¡CRON)CNRN)C2 ESP)CROF)CBLK)!O!<12 Y><U><N>CRON) 
CNRN)C2 ESP)CROF)CBLKXH><N> -105- 

5210 PRINT”<H><N> CRON)CNRN)C2 ESP)CROF)CBLK)!L¡<13 P> 
<P> CRON)CNRN)C2 ESP)CROF)CBLK)¡L¡<13 P><P>CRON)CNRN)C 
2 ESP)CROF)CBLK)<H><N>”; -157- 

5220 PRINT”<H><N> CRON)CNRN)C36 ESP)CROF)CBLKXH><N>”; 

-250- 

5230 PRINT”<H><N>CRON)CNRN)C36 ESP)CROF)CBLK)<H><N>”; 

-123- 

5240- PRINT”<H><C><36 Y><U><N>"; -139- 

5250 PRINT”!L!<30 P>CBLK)CHON)” -030- 

5260 POKE 2023,122:POKE 56295,0:POKE 1914,160:FOR N-0 
TO 3: POKE 1922-*-N , 160 -116- 

5270 NEXT N -155- 

5200 PRINT”CHON)CRON)"TABC 34) C PEEK C 49154)-l)*214 

-097- 

5290 PRINT”CHON)CRON)C7 DCH)”T -005- 

5500 POKE 49152,0 -154- 

5520 IF PEEK(56320X >111 THEN POKE 49152,1:RETURN 

- 000 - 


5530 BOTO 5520 -010- 
5600 PRINT”CHON)CR0N)”TABC34)I -105- 
5610 IF I/214-INTC1/214) THEN 5630 -111- 
5620 RETURN -205- 
5630 POKE 49154,PEEK C 49154XI : POKE 49152,0 -051- 
5640 FOR N-0 TO 255:POKE 53201,N:NEXT N -029- 
5650 RUN 00 -109- 
5700 POKE 49152,0 -156- 
5710 POKE 49154,1 -160- 
5720 FOR N-0 TO 3:POKE 53207+N,0:NEXT N -0E0- 
5730 FOR N-0 TO 255:POKE 53294,N:NEXT N -033- 
5740 RUN 00 -109- 
7000 DATA 166,251,232,134,251,224,11,240,1,96,162,0.1 
34,251,173,255 -017- 
7010 DATA 7,201.194,200,5,169.195,76,100,195,169,194, 
141,255,7,173 -019- 
7020 DATA 240,7,201,192,200,5,169,193,76,125,195,169, 
192,141,240,7 -010- 


7030 DATA 141,249,7,141,250,7,141,251,7,141,252,7,141 
,253,7,141 -000- 

7040 DATA 254,7,96 -190- 

7100 DATA 166,252,224,1,240,17,174,1,203,232,142,1,20 
0,224,220,240 -213- 

7110 DATA 1,96,162,1,134,252,96,174,1,200,202,142,1,2 
00,224,76 -035- 

7120 DATA 240,1,96,134,252,96 -214- 

7200 DATA 166,253,224,1,240,44,174,2,200,173,16,200,4 
1 , 2 , 201,2 - 021 - 
7210 DATA 240,19,232,224,255,200,10,162,0,173,16,200, 
9,2,141,16 -075- 

7220 DATA 200,142,2,200,96,232,142,2,200,224,55,200,2 
47,162,1,134 -106- 

7230 DATA 253,96,174,2,200,173,16,200,41,2,201,2,200, 
19,202,224 -003- 

7240 DATA 0,200,10,162,255,173,16,200,41,253,141,16,2 
00,142,2,200 -176- 

7250 DATA 96,202,142,2,200,224,39,200,247,162,0,134,2 
53,96 -111- 
7300 DATA 164,254,192,0,200,17,174,5,200,202,234,142, 
5,200,224,100 -235- 

7310 DATA 200,4,162,1,134,254,96.192,1,200,44,174,4,2 
00,173,16 -046- 

7320 DATA 200,41,4,201,4,240,19,232,224,255,200,10,16 
2,0,173,16 -069- 

7330 DATA 200,9,4,141,16,200,142,4,200,96,232,142,4,2 
00,224,23 -030- 

7340 DATA 200,247,162,2,134,254,96,192,2,200,16,174,5 
,200,232,142 -200- 

7350 DATA 5,200,224,100,200,4,162,3,134,254,96,192,3, 
240,1,96 -006- 

7360 DATA 174,4,200,173,16,200,41,4,201,4,200,20,202, 
234,224,0 -021- 

7370 DATA 200,10,162,255,173,16,200,41,251,141,16,200 
,142,4,200,96 -243- 

7300 DATA 202,142,4,200,224,71,200,247,162,0,134,254, 

96 -215- 

7400 DATA 164,2,192,0,200,17,174,7,200,232,234,142,7, 

200,224,220 -133- 

7410 DATA 200,4,162,1,134,2,96,192,1,200,44,174,6,200 
,173,16 -200- 

7420 DATA 200,41,0,201,0,240,19,232,224,255,200,10,16 
2,0,173,16 -070- 

7430 DATA 200,9,0,141,16,200,142,6,200,96,232,142,6,2 
00,224,55 -052- 

7440 DATA 200,247,162,2,134,2,96,192,2,200,16,174,7,2 
00,202,142 -095- 

7450 DATA 7,200,224,76,200,4,162,3,134,2,96,192,3,240 
,1,96 -100- 

7460 DATA 174,6,200,173,16,200,41,0,201,0,200,20,202, 
234,224,0 -032- 

7470 DATA 200,10,162,255,173,16,200,41,247,141,16,200 
,142,6,200,96 -251- 

7400 DATA 202,142,6,200,224,39,200,247,162,0,134,2,96 

-117- 

7500 DATA 174,0,192,224,1,240,3,76,49,234,174,1,192,2 
32,142,1 -239- 

7510 DATA 192,224,10,200,242,162,0,142,1,192,32,00,19 
5,32,100,195 -104- 

7520 DATA 32,24,196,32,124,196,32,60,197,76,49,234 

-250- 

0000 DATA 2,160,0,10,160,0,9,152,0,9,152,0,10,160,0,1 
0 -114- 

0010 DATA 160,0,9,152,0,9,152,0,9,00,0.10,104,0,42,16 
B -140- 

0020 DATA 0,170,160,0,42,170,0,0,0,0,0,0,0,0,0,0 

-045- 

0030 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -105- 

0040 ÍDATA 2,160,0,10,160,0,10,160,0,9,152,0,10,160,0, 
10 -165- 

0050 DATA 160,0,9,00,0,9,00,0,9,00,0.10,104,0,10,160 

-059- 

0060 DATA 0,10,*160,0,40,10,0,0,0,0,0,0,0,0,0,0 

-193- 

0070 DATA 0,0,0,0,0,0,0,< r >,0,0,0,0,0,0,0,0 -109- 

0000 DATA 1,64,0,3,192,0,1,64,0,3,192,0,1,64,0,15 

-131- 

0090 DATA 240,0,5,00,0,15.240,0,5,00,0,10,160,0,10,16 
0 -107- 

0100 DATA 0,42,160,0,42,160,0,170,120,0,170,120,0,42, 
0,0 -205- 

0110 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -104- 

0120 DATA 1,64,0,3,192,0,1,64,0,3,192,0,1,64,0,15 

-126- 

0130 DATA 240,0,5,00,0,15,240,0,5,00,0,10,160,0,10,16 
0 . - 102 - 
0140 DATA 0,10,160,0,10,16B,0,2,170,0,2,170,0,0,160,0 

-062- 

0150 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 -100- 
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José Fernando Gamazo Marina, nos escribe desde Navarra 
con un buen grupo de preguntas: 

«1. Quisiera saber cuál es el último número editado, pues 
empecé con el número 7, y ahora tengo del 7 al 10. 

2. ¿Pueden darme alguna referencia de cómo emplear los 
distintos comandos BANK del C128? 

3. No sé cómo emplear los POKEs y las direcciones de 
memoria. 

4. ¿Hay algún libro que hable del manejo de los POKE para 
el C-128? 

5. ¿Es lo mismo editar con el «Editor de Sprites» 
incorporado que con POKE? 

6. ¿Cómo se consigue la animación mediante sprites? 
¿Cuántos son necesarios? 

7. Con los comandos BOX, DRAW y CIRCLE se pueden 
crear fondos para juegos, pero se dibujan lentamente. ¿Cómo 
hacen los juegos comerciales para que aparezca un fondo 
casi instantáneamente?» 


En primer lugar, amigo José Fernando, vamos a aprovechar tu 
carta para dar unas cuantas normas, que todos deberéis seguir 
cuando escribáis al apartado HOT UNE, con las cuales todos 
saldremos ganando en claridad y exactitud de nuestras 
respuestas: 

A) No mandéis nunca un sobre para recibir la respuesta, ya 
que ésta será SIEMPRE a través de este apartado. 

B) Numerad vuestras preguntas. 

C) Haced las preguntas con absoluta claridad; si son 
ambiguas, no esperéis que adivinemos lo que deseáis 
exactamente, sino que las respuestas serán, con toda 
probabilidad, también ambiguas. 

D) Decid el modelo de ordenador al cual van destinadas las 
respuestas. 

Dicho esto, hemos extraído de tu carta las 7 preguntas que 
CREEMOS se pueden deducir del contenido de tu carta. 

1. Como podrás observar en los números de TMC que obran 
en tu poder, esta publicación se halla actualmente en su segunda 
época, que consta de los números 1 al 13, con una tirada 
mensual. En su primera época de aparición semanal, se editaron 
los números 1 al 18. Si estás interesado en recibir ejemplares 
atrasados, puedes dirigirte al teléfono (91) 4579424 o a la 
dirección: 

Plaza República del Ecuador, 2 
28016 MADRID. 


2. Con una CPU de 8 bits como la utilizada en el C-128, sólo 
se pueden direccionar 64K (65535 bytes), y eso gracias a que se 
toman dos registros (16 bits) como bus de direccionamiento; 
pero todos sabemos que el C-128 dispone de 128K. ¿Cómo es 
posible todo esto? 

La respuesta es bien sencilla: gracias a la técnica de 
«banking», que quiere decir que la CPU puede direccionar hasta 
16 bloques de 64 K cada uno, pero sólo «verá» uno cada vez. No, 
no nos emocionemos con tener 1 «Mega» de memoria principal 
(16x64 = 1024 Kbytes = 1 megabyte), ya que algunos bancos 
tienen «agujeros» o zonas comunes entre ellos. 

De toda esta parafernalia se encarga automáticamente el 
C-128 (¡Uff, menos mal), pero queda la opción de manejarlo «a 
mano», mediante el comando BANK. Con él, se pueden 
configurar toda una serie de combinaciones (RAM, ROM interna, 
ROM externa, Kernal, 1/0, etc), pero las más utilizadas son: BANK 
15 cuando se conecta el ordenador y BANK 14 para leer el juego 
de caracteres directamente y modificarlo. Las demás son 
peligrosas, y si no se manejan adecuadamente, acabarán 
«colgando» el ordenador. 

3. Por el contenido de tu carta, pareces excesivamente 
preocupado por el tema de los POKE; si bien éste es un comando 
importante, tampoco hay por qué tenerle un respeto muy 
especial. 

Su uso es muy extendido, y sirve para depositar un valor entero 
entre 0 y 255 en una posición de memoria del ordenador. Un uso 
muy general de este comando, es el de cargar en la memoria un 
programa ejecutable desde código máquina, que al fin y al cabo, 
no es más que números en la memoria, con un significado 
coherente para el ordenador. La forma de hacer esto es, 
generalmente, un FOR de lectura de los datos en sentencias 
DATA, donde el valor inicial del FOR es la primera dirección de 
memoria, y el final, la última posición. Ejemplo: 

FOR 1=49152 TO 49200:READ A:POKEI,A:NEXT 
DATA.... 

Como ves, este bucle cargará los números que haya en las 
sentencias DATA..., a partir de la posición 49152 hasta la 49200, 
ya que primero se leen con READ A y luego se introducen con 
POKEI,A (POKE dirección, valor). 

4. Siguiendo con los POKE, te diremos que hay varios libros 
que hablan sobre ellos (y sobre otras cosas), entre ellos puedes 
comprar: «TODO SOBRE EL NUEVO COMMODORE 128» de 
Homig-Trapp-Weltner, de la serie DATA BECKER, editorial FERRE 
MORET. Te será muy útil, aunque no solamente hable de los 
POKEs. 
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5. Con el editor de sprites del C128 se rellena el área de 
memoria reservada para los 8 sprites (3584-4096); esta zona 
también se puede cubrir mediante POKEs a esas direcciones. 
Para grabar este área de datos en el disco, puedes emplear la 
siguiente sentencia: 

BSAVE «NOMBRE .B0.P3584 TO P4096 

Si lo deseas, puedes leer estas direcciones mediante PEEK del 
banco 0, pasarlas a DATA, y luego leerlas con POKE. 

6. Para animar un sprite, sólo se necesita un sprite; ¿qué como 
es esto?, pues muy sencillo. La animación consiste en que el 
sprite cambie de forma y no que se «machaque» con otro sprite 
diferente. 

Pero veamos un ejemplo: supongamos que queremos animar 
un sprite con 10 secuencias diferentes. Para ello dibujaremos 
entre los puntos de alta resolución 10,11 y 34,32 (o en cualquier 
otro lugar que dé como diferencia 24x21) ya que 34-10=21 y 
32-11=21, las diferentes figuras a realizar. 

Tras dibujar cada figura se almacena su contenido en una 
cadena alfanumérica con la sentencia SSHAPE A$(0).10,11,34.32, donde 
el índice de A$ se cambia de 0 a 9. Así logramos tener toda la 
secuencia en la variable A$(0) hasta A$(9). 

Para conseguir la animación, bastará con devolver los valores 
de la matriz A$() al sprite de forma correlativa con: SPRSAV A$(0),1 
hasta SPRSAVA$(9),1; donde el uno indica el número de sprite a 
emplear. 

7. Los juegos comerciales consiguen la aparición de un fondo 
diferente (pantalla) tan rápidamente, de varias formas: 

A) Van creando una pantalla en otra zona de memoria, la cual 
se visualiza «de golpe», con un simple cambio de puntero de 
pantalla. 

B) Utilizan rutinas de código máquina y no de BASIC, que es 
muchísimo más lento. 

C) Las cargas desde el disco cada vez que la necesitan, y las 
muestran como en el apartado a. 


1. Cargar el programa FUERA ERRORES! que aparece en 
cada número de TU MICRO COMMODORE y ejecutarlo con RUN. 

2. Comenzar a teclear el programa deseado de los listados de 
la revista. 

Ahora viene el problema; nos hemos cansado de teclear por 
hoy y decidimos dejarlo para continuar otro día. 

3. Como la rutina en C.M. de FUERA ERRORES! reside en el 
buffer del casete, ANTES de grabar lo ya tecleado, dar RUN/ 
STOP-RESTORE, para desactivar el sistema. 

4. Grabar normalmente la porción de programa. 

Segunda parte, deseamos reanudar el copiado del listado en el 
punto donde lo dejamos. 

1. Cargar el programa fuera errores en memoria y ejecutarlo 
con RUN. 

2. Subir la rutina de FUERA ERRORES! hasta 49152 con: 

F0RI=OT0113 P0KE49152+I.PEEK(822+l):NEXT 

3. Cuando aparezca READY, cargar normalmente el trozo de 
programa ya tecleado. 

4. Terminada la carga, bajar el FUERA ERRORES! a su sitio 
con: 

F0RI=0T0113 P0KE822+I,PEEK(49152+I):NEXT 

5. Volver a activar FUERA ERRORES! con SYS 822 (esto es 
opcional, pero por si acaso...) y continuar tecleando por donde lo 
dejamos. 


Muchos de nuestros lectores nos han planteado una misma 
cuestión: ¿cuál es la forma de interrumpir la introducción de 
un programa, para reanudarlo en otro momento con el sistema 
fuera errores? Estos son los pasos a seguir, desde el 
principio, cuando aún no tenemos nada tecleado: 
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CODIGO MAQUINA @ 


Rutinas 

Kemai un 



ara mayor comodidad, os 
recordamos el significado 
de las abreviaturas utiliza¬ 
das: 

FUNCION: Indicaremos 
aquí el nombre dado por Commodore a la 
rutina. 

DIRECCION: La dirección a la que he¬ 
mos de llamar para acceder a esta rutina 
(la de la tabla de saltos; no la directa). 

ENTRADAS/SALIDAS: Describimos los 
registros (tras la abreviatura REGI y/o posi¬ 
ciones de memoria (MEM), en las cuales 
debemos introducir los parámetros requeri¬ 
dos por la rutina, o en los que la misma de¬ 
volverá sus resultados. El signo «—» indicará 
que no se utiliza ninguno. 

RUTINAS PREVIAS: En algunos casos, pa¬ 
ra que una rutina funcione es preciso haber 
llamado previamente a otras (por ejemplo, 
para enviar un carácter a la impresora te¬ 
nemos que haber abierto el canal de la mis¬ 
ma, o se producirá un error). Los nombres 
de las rutinas requeridas serán incluidos 


aquí. 

POSIBLES ERRORES: Cuando a la salida de 
una rutina el indicador de Acarreo (C) está 
a uno, se indica que se ha producido un 
error; en este caso, el registro A contiene el 
código que describe el error producido. Los 
posibles errores se describen en este apar¬ 
tado. 

STACK: Cada rutina va a ocupar una 
parte del stack, para almacenar variables 
intermedias o realizar llamadas a otras ruti¬ 
nas. Indicaremos la cantidad de stack que 
la rutina utiliza. 

DESCRIPCION: De la rutina, por supues¬ 
to: Efecto producido, entradas y salidas, 
¡unto con ejemplo de su uso. 


Rutinas Kernal (II) 

Y comenzamos de nuevo la descripción 
de las rutinas Kernal: 

FUNCION: CHROUT 
DIRECCION: $FFD2 (Ó5490) 


Ya estudiamos en nuestro número anterior, los funcionamientos del cómo 
y el porqué de las rutinas Kernal, comenzando su descripción det a llada. 

Continuamos este mes el camino emprendido. 



ENTRADAS: REG: A 

MEM: MAPA DEL SISTEMA 
SALIDAS: REG: (A=ERROR SI CARRY=1) 
MEM: STATUS ($90=144), 
RSSTAT ($297=663 EN C-64, 
$A 14=2580 EN 128) 
RUTINAS PREVIAS: NINGUNA 
(CHKOUT OPCIONAL) 


STACK: - 

DESCRIPCION: Envía un carácter (el 


POSIBLES ERRORES: Se obtienen de la contenido en el acumulador a la entrada) 


lectura del status con la función READST. 


por el canal de salida previamente esta- 
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CODIGO MAQUINA £3 


blecido con CHKOUT lo al de defecto, es 
decir, la pantalla, si no se ha llamado a la 
anterior rutina). 

El acceso a esta rutina se efectúa a través 
de un vector contenido en la RAM, concre¬ 
tamente en las posiciones 806-807 (en el 64 
y el 128), lo cual permite que nuestro pro¬ 
grama pueda interceptar esta función para 
implementar nuestro propio sistema. Para 
interceptar la rutina, no hay más que hacer 
apuntar el vector indicado al inicio de nues¬ 
tro propio proqrama. 

EJEMPLO: 

; ENVIAR LA CADENA 
«COMMODORE» 

;A IMPRESORA 
LDX * ; 4 SALIDA A 
JSR CHKOUT ; IMPRESORA 
LDX n0 ; INICIALIZA 

BUCLE LDA MENSAJE,X ; LEER CA¬ 
RACTER 

JSR CHROUT ; ENVIARLO 
INX ; SIGUIENTE 
CPX n9 ; ¿FIN? 

BNE BUCLE ; NO, REPITE 
RTS ; SI, VUELVE 

MENSAJE .BYTE "C", "O", "M", "M", "O" 
Byte "D", "O", "R", "E" 

; SE ASUME QUE EL CANAL 4 
,* SE HA ABIERTO PREVIAMEN¬ 


TE 

, NOSE HACE CHEQUEO DE 
; ERRORES 

FUNCION: CIOUT 
DIRECCION: $FFA8 165448) 
ENTRADAS: REG: A 

MEM: MAPA DEL SISTEMA 
SALIDAS: REG: - 

MEM: STATUS ($90=1441 
RUTINAS PREVIAS: LISTEN, ISECOND 
OPCIONALMENTE) 

POSIBLES ERRORES: Se obtienen de la 
lectura del status con la función READST. 
STACK: - 

DESCRIPCION: Mediante esta función, 
es posible enviar un byte de datos a través 
del bus serie de Commodore, es decir, el 
canal que comunica con el disco, la impre¬ 
sora y otros periféricos. Esta rutina es llama¬ 
da por CHROUT cuando debe enviar un 
carácter (de hecho, un byte) a impresora o 
disco. Si previamente no se ha obligado a 
escuchar al dispostivo con el cual comuni¬ 
camos mediante la función LISTEN, el status 
reflejará la condición de error como si di¬ 
cho dispositivo no existiese. 

EJEMPLO: 

LDA *8 ; QUE ESCUCHE EL 
JSR LISTEN ; DISCO 


LDA «$FO ; ENVIAR BYTE 
JSR CIOUT . 

FUNCION: CLALL 
DIRECCION: $FFE7 (65511) 

ENTRADAS: REG: - 

MEM: MAPA DEL SISTEMA 
SALIDAS: REG: - 

MEM: LDTND ($98= 

152),DFLTN (DISP. ENTRADA, 
$99=1531, DFLTO (DISP. SALI¬ 
DA, $9A= 1541 

RUTINAS PREVIAS: NINGUNA 
POSIBLES ERRORES: NINGUNO 
STACK: 11 POSICIONES 
DESCRIPCION: Esta función cierra todos 
los ficheros que se hallen abiertos en el mo¬ 
mento de ser invocada,- suele emplearse en 
la inicialización de programas, o bien como 
medida de seguridad después de haber 
detectado un error. También para esta ruti¬ 
na existe un vector indirecto en memoria 
($320, que permite a nuestros programas 
interceptarla. 

EJEMPLO: 

ERROR JSR CLALL ; CIERRA TODOS 
,- LOS FICHEROS 

. ,- AQUI EMPIEZA 

,- LA RUTINA DE 
,- ERRORES 
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FUNCION: CLOSE 
DIRECCION: $FFC3 (65475) 

ENTRADAS: REG: A 
MEM:- 

SALIDAS: REG: - 
MEM:- 

RUTINAS PREVIAS: NINGUNA 
POSIBLES ERRORES: NINGUNO 
STACK: - 

DESCRIPCION: Con esta rutina pode¬ 
mos cerrar un fichero previamente abierto, 
de modo muy parecido a la orden CLOSE 
del BASIC. En el acumulador introducimos 
el número asignado al fichiero (ver la orden 
OPEN), y efectuamos la llamada. 
EJEMPLO: 

LDA *15 ; CERRAR CANAL 15 
JSR CLOSE 
FUNCION: CLRCHN 
DIRECCION: $FFCC (65485) 
ENTRADAS: REG: - 
MEM:- 

SALIDAS: REG: - 
MEM: - 

RUTINAS PREVIAS: NINGUNA 
POSIBLES ERRORES: NINGUNO 
STACK: 9 POSICIONES 
DESCRIPCION: La fundón CLRCHN res¬ 
taura todos los canales de E/S. Después de 
realizar nuestro trabajo con los canales de 
comunicación, una llamada a esta rutina 
los vuelve a dejar en el estado inicial, es de¬ 
cir, restaura los canales a los valores por 
defecto: el canal de entrada vuelve a ser el 
cero (teclado), y el de salida el tres (panta¬ 
lla). 

Si el dispositivo era uno de los del bus se¬ 
rie, se envía por el mismo una orden UN- 
TALK (es decir, el equivalente a un «iCALLA- 
TE!» en idioma Kernal) para que cese de 
transmitir; análogamente, para el canal de 
salida, se le envía una orden UNLISTEN, a 
fin de indicarle que deje de prestar aten¬ 
ción al ordenador. 

Esta rutina permite un truco interesante: 
supongamos que definimos como salida al 
disco y después cerramos el canal, pero sin 
llamar al CLRCHN. Ahora volvemos a defi¬ 
nir como salida, por ejemplo, a la impreso¬ 
ra. De este modo, tenemos dos dispositivos 
«atendiendo» al ordenador, y pueden reci¬ 
bir los mismos datos simultáneamente. Esto 
es sólo posible si los dos dispositivos «escu¬ 
chan»; dado que el bus serie sólo dispone 
de un canal físico de comunicaciones; in¬ 
tentar que dos dispositivos «hablen» a la 
vez por él es poco menos que una locura... 
Aunque no hay nada imposible, sería mu¬ 
cho más complejo que este truco que aquí 
explicamos. 

Existe un vector a esta función, localiza¬ 
do en las posiciones $322-$323. 
FUNCION: GETIN 
DIRECCION: $FFE4 (65512) 

ENTRADAS: REG: - 

MEM: MAPA DEL SISTEMA 


SALIDAS: REG: A (SI CARRY=1, SE HA 
PRODUCIDO ERROR) 
MEM: STATUS, RSSTAT 
RUTINAS PREVIAS: NINGUNA (CHKIN 

OPCIO¬ 

NAL) 

POSIBLES ERRORES: NINGUNO 
STACK: - 

DESCRIPCION: Esta fundón lee un carác¬ 


ter del canal de entrada actualmente defi¬ 
nido (y que se almacena en la posición de 
memoria $99, a la que Commodore llama 
DFLTN). Si se pretende leer datos de otro 
canal que no sea el teclado, debe llamarse 
a OPEN y CHKIN previamente, para definir 
el canal de entrada. 

Nuestro espacio se agota: Continuare¬ 
mos en el próximo número. 
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C-64 Rutinas 
de! sistema 


Estamos ante un libro de la nueva «hor¬ 
nada» de la editorial Ferre Moret para el 
C-64, aplicable asimismo en su contenido 
al C-128 en modo 64. 

En él, se explican una serie de rutinas del 
sistema, tanto del BASIC como del Kernal, 
cuya utilización permite extraer el máximo 
provecho del ordenador, al tiempo que se 
consigue un alto grado de eficacia. 

Todas las rutinas contenidas en el libro 
están muy bien documentadas, explicán¬ 
dose con ellas algo tan útil como la forma 
de simular un PRINT AT, borrar hasta cierto 
carácter de una determinada línea de pan¬ 
talla, la forma de copiar una zona de me¬ 
moria en otra, etc. 

Para facilitar la labor del programador, 
se cuenta con una gran cantidad de ejem¬ 
plos, que en muchos casos se constituyen 
en rutinas de utilidad, todas ellas documen¬ 
tadas profusamente, con datos como los re¬ 
gistros de comunicación, (necesarios para 
establecer los parámetros) y las direcciones 
de entrada para el salto. 

Aunque no se trata de un comentario ex¬ 
haustivo de todas las rutinas de la ROM del 
C-64, nos ayudará a sacar el máximo parti¬ 
do a nuestro ordenador. 

Hemos de tener en cuenta que estas ruti¬ 
nas, a pesar de estar contenidas en la 
ROM, nos permiten llevar a cabo algunas 
tareas imposibles desde el BASIC, contan¬ 
do además con la extraordinaria velocidad 
del código máquina. 

Como novedad, este libro se proporcio¬ 
na encuadernado de una forma distinta a 
la adoptada usualmente por los títulos de la 



misma editorial. En este caso, se protege 
con tapas duras, mucho más resistentes que 
las otras, mejorando así la presencia final 
del producto. El interior continúa encolado, 
como en el resto de la colección, y las tapas 
duras también se encuentran plastificadas, 
como ocurría con los libros anteriores. 

Por lo que parece, el sistema no es malo, 
dado que los libros que venimos utilizando 
de esta editorial, tanto del modelo antiguo 
como del nuevo, han resistido todas nues¬ 
tras ansias de saber, sin mella en su integri¬ 
dad. 

Como resumen, podemos decir que si so¬ 
mos aficionados a exprimir nuestro ordena¬ 
dor hasta el último bit, este título no debe 
faltar en nuestra biblioteca. 


128 Peeks 
Y Pokes 

Dentro de la flamante y útil colección de 
Ferre Moret dedicados al 128, destaca el 
título 128 PEEKS y POKES. Este libro no tiene 
nada que ver con su predecesor: COM- 
MODORE 64 PEEKS y POKES; creemos que 
si el anterior resultaba muy práctico para el 
C-64, éste es un producto considerable¬ 
mente mejorado para el 128. 

Abrigados por la colección de Ferre Mo¬ 
ret Data Becker, hay libros para todos los 
gustos y necesidades, éste en concreto, nos 
lleva de la mano para comprender mejor su 
sistema operativo y no se limita a listar las 
direcciones de memoria y los POKEs o 
PEEKs indicados con su efecto. Este libro va 
mucho más lejos y acaba enseñando parti¬ 
cularidades y cómo obtener resultados 
inesperados de nuestro ordenador. 

En el contenido de sus 247 páginas, se 
encuentra de todo: comienza hablando de 
lo que es el ordenador y su funcionamiento, 
pasando a continuación a explicar qué es 
un sistema operativo y la página cero, el 
concepto de pointer y stack, etc. 

Hay que resaltar, por ejemplo, la explica¬ 
ción del problema de banking de la memo¬ 
ria, el cual habrá dado más de un dolor de 
cabeza al programador novato del 128. 
Dentro de este apartado, destaca el con¬ 
cepto de puntero y cómo modificar la confi¬ 
guración de memoria, explicando aquellas 
zonas que queden libres al usuario, para in¬ 
cluir programas en código máquina, tanto 
en el modo 64 como en el 128. 



Como todos sabemos, el 128 dispone de 
un modo de 80 columnas y éste trata temas 
tan interesantes como la utilización de grá¬ 
ficos de alta resolución en esta pantalla, y 
el acceso a ella desde el modo 64. Esta 
pantalla se halla controlada por un circuito 
aparte y tiene la ventaja de utilizar una me¬ 
moria especial para ella, sin restar espacio 
a la del ordenador. 

El libro contiene una serie de programas 
de gran utilidad, como es el caso de una ru¬ 
tina de hardcopy, la cual se puede incluir 
en nuestro propio software. 

Otro aspecto importante del 128 es la 
existencia de un microprocesador adicio¬ 
nal Z-80, bajo el cual opera el CP/M plus. 
En 128 PEEKS Y POKES, encontramos una 
introducción al acceso a este otro procesa¬ 
dor y a su programación en código máqui¬ 
na. 

En muchas ocasiones hemos querido 
modificar el teclado para aplicaciones pro¬ 
pias tales, como el proceso de textos en 
castellano. Averiguaremos también gracias 
a este excelente libro cómo hacerlo de for¬ 
ma sencilla, al tiempo que se habla de la 
disposición de la matriz del teclado y las 
formas de acceso al mismo. 

Por otra parte, los aficionados al hard¬ 
ware hallarán información sobre autóma¬ 
tas y los sistemas controlados por ordena¬ 
dor, con su rinconcito, explicando las fun¬ 
ciones y programación del port de usuario. 

Por si todo esto fuera poco, la auténtica 
bomba: cómo se puede tener acceso a las 
características especiales del 128 en el modo 
64, tales como doblar la velocidad de pro¬ 
ceso, pantalla de 80 columnas y teclado 
numérico. 

En definitiva, es otro libro que recomen¬ 
damos a todos aquéllos, que piensan que 
al ordenador se le puede pedir más de lo 
que el manual de usuario dice. 































PROGRAMACION DE SONIDO 
EN EL COMMODORE 64 


No cabe duda que el COMMODO¬ 
RE 64 debe gran parte de su populari¬ 
dad, a las habilidades gráficas deriva¬ 
das de la implantación en su hardware 
del chip VIO D. Sin embargo, no es 
menos cierto, que en el campo de la 
generación de efectos sonoros y com¬ 
posiciones musicales, el chip SID 
6581 no se queda atrás. 

El SID 6581 es un verdadero sinteti- 
zador de sonido, programable tanto 
desde el BASIC como en el lenguaje 
máquina del ordenador. Como carac¬ 
terísticas generales, podemos decir 
que dispone de tres canales indepen¬ 
dientes de generación de sonido mu¬ 
sical, más uno adicional denominado 
comúnmente de «ruido blanco», ca¬ 
paz de producir sorprendentes efec¬ 
tos especiales; muy adecuados en los 
juegos de simulación. 

Como complemento, dentro de ca¬ 
da canal, disponemos de filtros de 
modulación, y relaciones entre ata¬ 
que, decaimiento, sostenimiento, y 
relajación del sonido, de forma que 
resulta posible emular las caracterís¬ 
ticas sonoras de cualquier instrumen¬ 
to musical. 


La forma de dirigimos al chip de so¬ 
nido desde el BASIC, es mediante la 
sentencia POKE, de modo similar a 
como estamos acostumbrados a ma¬ 
nejarnos con el VIC n, en vídeo. 

La dirección de inicio del chip de 
sonido es la decimal 54272, valor que 
podemos almacenar en una variable 
BASIC, para facilitar así el acceso re¬ 
lativo a las restantes 27 posiciones del 
integrado, indicando su desplaza¬ 
miento relativo a partir del valor de 
origen. 

De esta manera, y siendo S la varia¬ 
ble que indica la posición de comien¬ 
zo del SID 6581 (54272), la sentencia: 


POKE S+6,0 

Indicará que deseamos colocar el 
valor 0 en la posición decimal 54278. 

PROGRAMACION 
DEL VOLUMEN 

La posición de memoria encargada 
de controlar el volumen es la 54296 
(registro relativo número 24), más 
concretamente sus cuatro primeros 
bits, en los cuales podemos alojar un 
valor comprendido entre 0 (silencio 
total) y 15 (volumen más alto), depen¬ 
diendo de nuestras necesidades. 



El SID 6581 es un verdadero sintetizador de 
sonido programable desde el BASIC o código 
máquina. 
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CONCEPTO DE FRECUENCIA 
DE ONDA 

El chip de sonido es capaz de gene¬ 
rar ondas de muy diferentes frecuen¬ 
cias, entendiéndose por éstas el nú¬ 
mero de ciclos completos producidos 
en el transcurso de un segundo. 

Con base en esta propiedad, el SID 
es capaz de soportar ocho octavas 
completas de notas musicales. Enten¬ 
diéndose que, para generar el sonido 
de una nota, es preciso determinar su 
frecuencia, así como el tiempo de du¬ 
ración del sonido. 

En cualquier caso, los valores deci¬ 
males de las frecuencias a definir 
desbordan la capacidad de un solo 
byte, razón por la cual es preciso, des¬ 
pués de obtener la frecuencia desea¬ 
da, descomponer este resultado en la 
forma de dos bytes, peso alto y bajo, 
codificados en binario. 

Por supuesto, y de cara a facilitar la 
composición, existe una tabla, la cual 
reproducimos en estas mismas pági¬ 
nas, en la que se encuentran las fre¬ 
cuencias (ya descompuestas en alto y 
bajo) de cada nota, dentro de las ocho 
octavas, haciendo un total de 95 posi¬ 
bles. 

Cabe también la posibilidad de de¬ 
finir algún sonido nuevo. Para ello, es 
preciso determinar la frecuencia de 
salida —s. A continuación, calculare¬ 
mos la frecuencia del sonido que de¬ 
seamos crear — n a partir de la fórmu¬ 
la: 

Fn=Fs/.06097 

Una vez obtenido el valor para la 
nueva frecuencia, es preciso calcular 
los valores para los bytes alto y bajo 
de la misma, los cuales, junto con la 
duración de la nota, determinarán el 
sonido completo. Para ello, redondea¬ 
mos el valor obtenido al entero más 
próximo y sustituimos éste en las si¬ 
guientes fórmulas, donde —a repre¬ 
senta el byte más significativo de la 
frecuencia y Fb el menos significati¬ 
vo: 

Fa=Fn/256 
Fb=Fn—256*Fa 

En el listado 1, podemos ver como 
dar vida a una pequeña composición 
musical, utilizando tan sólo una voz. 
Para ello, basta con suministrar los va¬ 
lores del byte alto y bajo de cada nota, 
así como la duración. 

La línea 20 asigna a la variable S el 
valor de comienzo del chip de sonido. 


A continuación, mediante un bucle 
FOR NEXT, ponemos a cero todos los 
registros del chip, como medida de 
precaución, para borrar los posibles 
valores almacenados en ejecuciones 
anteriores de programas. 

La línea 30 asigna la relación de ata¬ 
que/decaimiento (0,9), y sostenimien¬ 
to/relajación (0,0), para la voz 1. Sitúa 
también el volumen al máximo, asig¬ 
nando el valor 15 a la posición S+24. 

La línea 40, establece una lectura 
de las sentencias DATA, dispuestas a 


partir de la línea 100. De los paráme¬ 
tros leídos, A indica el byte alto de la 
nota y B el bajo, siendo C la duración 
prevista. 

En la línea 50 se controla el final de 
la composición, por la detección de 
lectura de un valor negativo. 

En la línea 60, se ejecuta el POKE 
de los bytes alto y bajo de frecuencia, 
sobre las posiciones S+l y S. Así mis¬ 
mo, la sentencia POKE S+4,33, selec¬ 
ciona la forma de onda «diente de sie¬ 
rra». 




Onda amorfa («ruido blanco»). 



Onda de diente de sierra. 


ANCHO DE PULSO 
Onda rectangular. 


RESULTANTE 

1^ ARMONICO (FUNDAMENTAL) 
3^ ARMONICO 



2‘ARMONICO 
Composición de una onda real. 



Onda sinusoidal. 


NIVEL 

SUSTANCIAL 



Representación gráfica de la envolvente. 



Filtro pasa bajos. 
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La línea 70 tiene el cometido de 
producir el retardo adecuado a la du¬ 
ración de la nota, según el valor del 
parámetro C. 

En la 80, se desactiva la forma de 
onda y se produce un pequeño tiem¬ 
po de espera, antes de cerrar el bucle 
de lectura de más notas. 

Por último, en las líneas 100 a 180, 
se encuentran las DATA correspon¬ 
dientes a los pares de valores de cada 
nota, y sus correspondientes duracio¬ 
nes. 


SONIDO POLIFONICO 

Sin duda, utilizando cualquier canal 
de los tres disponibles en el sintetiza- 
dor, es posible hacer sonar una melo¬ 
día, bastando con suministrar la se¬ 
cuencia adecuada de pares de valo¬ 
res de frecuencia y el dato correspon¬ 
diente al tiempo. 

Aunque requiere un mayor esfuer¬ 
zo de codificación, los mejores resul¬ 
tados se hallan al utilizar de forma si¬ 
multánea dos o tres de las voces. En 


estos casos, cada una de ellas cumple 
la función de un instrumento o grupo 
de ellos, sirviendo de acompaña¬ 
miento a la voz principal, consiguién¬ 
dose de este modo un efecto polifóni¬ 
co sorprendente. 

Sin embargo, el principal problema 
que debemos resolver a la hora de 
coordinar varias voces, es el de la sin¬ 
cronización. Esta labor es verdadera¬ 
mente complicada, puesto que no ne¬ 
cesariamente todas las notas tienen la 
misma duración dentro de una voz, y 
menos aún si tenemos en cuenta va¬ 
rias. 

Un buen método para solucionar es¬ 
te problema, es el de partir la mayor 
medida de duración de una nota en 16 
partes. De esta forma, podemos de¬ 
terminar lo que sucederá en cada in¬ 
tervalo simple para cada una de las 
voces, almacenando los valores co¬ 
rrespondientes en tablas, o emplean¬ 
do una tabla multidimensional. 

El único problema que puede oca¬ 
sionarnos este sistema es el de la ocu¬ 
pación de memoria. Sin embargo, y 
puesto que en la mayoría de las oca¬ 
siones nuestras composiciones no se¬ 
rán extensas, no debemos preocupar¬ 
nos en exceso. Llegado el caso, po¬ 
dríamos almacenar parte de esta in¬ 
formación en un dispositivo extemo de 
acceso rápido, como la unidad de dis¬ 
co 1541, tratando la información musi¬ 
cal en bloques. 

FORMA DE LAS ONDAS 

Resulta obvio que cualquier instru¬ 
mento musical convencional, es ca¬ 
paz de interpretar una melodía; sin 
embargo, cada uno de ellos aporta 
una cualidad específica al sonido de¬ 
nominada «timbre», por la cual es po¬ 
sible distinguir si la melodía está sien¬ 
do ejecutada por un instrumento o por 
otro. 

En general, podemos decir que es¬ 
te fenómeno se debe a los diferentes 
tipos de onda que genera cada instru¬ 
mento. Existen muchos tipos diferen¬ 
tes de ondas, de entre las cuales po¬ 
demos destacar las sinusoidales, 
rectangulares, triangulares, de diente 
de siena, y las aparentemente amor¬ 
fas; conocidas por «ruido blanco», y 
absolutamente inadecuadas para 
cualquier interpretación musical. 

ARMONICOS Y ONDA 
PRINCIPAL 

Aunque no es nuestra intención 
entrar en materia reservada a estudio- 
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El SID 6581 dispone de 3 canales 
independientes de generación de sonido 
musical, más uno denominado de ruido 
blanco. 


da armónico guarda proporcionalidad 
con el recíproco del número de armó¬ 
nico. 

La onda rectangular, sin embargo, 
es más parecida a la triangular, pues¬ 
to que contiene también armónicos 
impares, aunque en proporción al 
recíproco del número de armónico. 

Por último, en las ondas de tipo rec¬ 
tangular, es posible obtener una gran 
variación en el timbre por el hecho de 
hacer variar ostensiblemente el an¬ 
cho del pulso, el cual marca el paso en 
alto de la vibración. 


sos del arte musical, diremos que 
cuando una nota suena, además de 
una onda que oscila en determinada 
frecuencia, denominada fundamental 
y que determina el grado de eleva¬ 
ción, se produce la concurrencia de 
otras ondas, denominadas armónicos, 
cuyas frecuencias son múltiplos ente¬ 
ros de la frecuencia fundamental. 

La onda sonora real se compone, 
pues, de la fundamental y sus armóni¬ 
cos, de los cuales el primero de ellos 
se identifica con la frecuencia funda¬ 
mental, el segundo toma una frecuen¬ 
cia doble a la del primero, el tercero 
tres veces la del primero, y así sucesi¬ 
vamente. 

En general, podemos decir que la 
resultante de los diferentes armóni¬ 
cos es la que determina el timbre de 


cada instrumento, aunque es eviden¬ 
te que el timbre experimenta ligeras 
variaciones dependiendo también de 
la nota a ejecutar. De esta forma, el 
análisis del timbre de algunos instru¬ 
mentos de cuerda, como el violín o la 
guitarra, puede resultar verdadera¬ 
mente complicado. 

Las ondas de tipo triangular contie¬ 
nen tan sólo armónicos impares, sien¬ 
do el valor de cada uno de ellos, pro¬ 
porcional al recíproco del cuadrado 
del número de armónico. En cual¬ 
quier caso, esta estructura es similar a 
la que se produce en una onda sinu¬ 
soidal, aunque con una separación 
más acusada entre armónicos. 

El tipo de onda que contiene la tota¬ 
lidad de los armónicos, es la de diente 
de sierra. En esta onda, el valor de ca- 



Seleccionando de forma adecuada 
el tipo de onda a emplear, es posible 
convertir al COMMODORE en el ins¬ 
trumento que deseemos, aunque, a \ 
decir verdad, hay que reconocer que 
esto requiere algunos conocimientos 
musicales. 


ENVOLVENTES 

Otro hecho a tener en cuenta en un 
sonido, es que su volumen varía, y no 


El canal de ruido blanco es capaz de producir 
sorprendentes efectos especiales. 
















































La posición de memoria encargada de 
controlar el volumen, es la 54296. 



uniformemente, desde el momento 
en que se inicia hasta aquél en que fi¬ 
naliza. Esta forma de producir la nota, 
I es también típica de cada instrumento, 
1 aunque independiente del timbre. 

Se denomina «ataque», al tiempo 
| que transcurre en evolucionar el volu¬ 
men, desde cero hasta su valor máxi¬ 
mo. Inmediatamente después, la nota 


La forma de dirigirnos al chip de sonido 
desde el BASIC, es mediante la sentencia 

POKE. 



pasa a adquirir un volumen medio, al 
| cual denominamos «decaimiento». 

Seguidamente, el volumen medio se 
| mantiene durante algún tiempo, de¬ 
nominado «sostenimiento». Por últi¬ 
mo, se produce el tiempo de «relaja¬ 
ción», en el cual el volumen se va re¬ 
duciendo hasta alcanzar el valor cero. 

Esta distribución de volumen den¬ 
tro de la duración de la nota (relación 
ADSR), se especifica a través de dos 
registros del SID, para cada una de las 
voces. 


El chip de sonido es capaz de generar ondas 
de muy diferentes frecuencias. 


FILTRO DE ARMONICOS 

El SID está dotado de tres tipos de 
filtros, capaces de alterar la forma de 
la onda. La función del filtro es similar 
a la de un ecualizador, resaltando 
frente a las demás algunas frecuen¬ 
cias. 

El filtro «pasa-altos» deja pasar las 
frecuencias iguales o superiores al 


punto de corte, atenuando las situa¬ 
das bajo éste. 

De forma análoga, el filtro «pasa-ba¬ 
jos» deja pasar las frecuencias igua¬ 
les o inferiores al punto de corte, ate¬ 
nuando las situadas sobre éste. 

Por último, existe un filtro «pasa- 
banda», que podemos considerar 
como complemento de los dos ante¬ 
riores. En este caso, se dejan pasar 






































El SID es capaz de soportar ocho octavas 
completas de notas musicales. 


las frecuencias que se encuentren 
entre los límites especificados, alrede¬ 
dor de un punto de corte, atenuando 
los demás. 

Otro modo permitido de filtrar on¬ 
das es el de definir filtros pasa-altos y 
pasa-bajos, de forma que atenúen 
precisamente la frecuencia de corte, 
dejando pasar todas las demás. 

El registro encargado de esta fun¬ 
ción es el 24, el cual se ocupa también 
de especificar el sonido, con sus cua¬ 
tro bits menos significativos. El bit 6 
controla el filtro pasa-altos, el 5 el pa¬ 
sa-banda, y el 4 el pasa-bajos. 



Para convertir nuestro Commodore en el 
instrumento que deseemos, debemos 
seleccionar el tipo de onda a emplear. 


Los tres bits menos significativos 
del registro 21, junto con los 8 del re¬ 
gistro 22, determinan la frecuencia de 
corte. 


OTRAS CARACTERISTICAS 

Los parámetros contenidos en el 
SID pueden alterarse, incluso durante 


No debemos descartarla posibilidad de 
definir algún sonido nuevo. 



la ejecución de un sonido, para obte¬ 
ner efectos especiales. En los regis¬ 
tros 27 y 28 están disponibles salidas 
digitalizadas para el tercer oscilador, 
así como el generador de envolven¬ 
tes. 

Al seleccionar el tipo de onda de 
diente de sierra para el oscilador nú¬ 
mero tres, el registro presenta una se¬ 
rie de números incrementados de 0 a 
255 en el tiempo marcado por la fre¬ 
cuencia del oscilador. Con las ondas 
triangulares, se produce primero el 
incremento de 0 a 255, y seguidamen¬ 
te el decremento de 255 a 0. Con las 
ondas rectangulares, la salida toma 


los valores máximo y mínimo de forma 
alternativa, para determinar de esta 
forma el pulso. 

Por último, seleccionando la onda 
de ruido, los valores almacenados son 
aleatorios. Sin embargo, cuando el 
tercer oscilador se emplea para mo¬ 
dulación, puede inhibirse su salida, 
ajustando el bit 7 del registro 24, el 
cual desactiva la salida de audio de 
esta voz. 

El registro 27 refleja los cambios en 
la salida del oscilador, no estando su¬ 
jeto de ninguna manera al generador 
de envolvente ADSR. 

El registro 25 controla la salida del 
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Utilizando cualquier canal disponible en el 
sintetizador, es posible hacer sonar una 
melodía. 


generador de envolvente del oscila¬ 
dor tres. Para producir cualquier sali¬ 
da de este registro, el oscilador debe 
estar activado. 

Añadiendo a la salida del oscilador 
tres la frecuencia de otro oscilador, es 
posible obtener el efecto de «vibra- 
to», es decir, la rápida variación de 
frecuencia. 


El programa de ejemplo 2, nos 
muestra cómo simular el sonido de 
una sirena de coche de policía. 

La línea 20 establece el valor de ini¬ 
cio de S, y sube el volumen al máximo. 
A continuación, establece las relacio¬ 
nes ataque/caída y sostén/escape. 

En la línea 30 comienza un bucle de 
programa, cuyo NEXT se halla en la 


sentencia 90. Su objetivo, es repetir 
10 veces el efecto sonoro. 

La línea 40 establece la forma de 
onda y sitúa de los valores de la alta y 
baja frecuencia de la nota a emitir. 

La línea 50 ejecuta una llamada a la 
subrutina de retardo contenida en la 
línea 110. La línea 70 varía la nota a 
emitir. La 80 vuelve a llamar a la subru¬ 
tina de retardo. La línea 70 altera la 
forma de onda. La 90 cierra el bucle 
FOR-NEXT. 

Por último, la línea 100 contiene la 
sentencia END, y las 110 y 120 la ruti¬ 
na de retardo. 


SINCRONIZACION Y 
MODULACION DE TIMBRE 


Con la sincronización y modulación 
de timbre de dos voces, pueden 
crearse estructuras de armónicos ver- 


Cada instrumento musical aporta una 
cualidad específica al sonido, denominada 
timbre. 


Aunque requiera un mayor esfuerzo, se 
obtienen mejores resultados utilizando de 
forma simultánea dos o tres voces. 
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daderamente complejas. Este proce¬ 
dimiento, se basa en el análisis de dos 
formas de onda, aplicándoles la rela¬ 
ción lógica AND. De esta forma, cuan¬ 


do alguna de ellas o ambas toma el va¬ 
lor cero, la salida producida es igual¬ 
mente nula. 

El efecto de sincronización se pro¬ 


duce afectando los bits 0, 1 y 4 del re¬ 
gistro número 4 del SE). Los bits 0 y 4 
se ocupan de activar la voz 1, ajustan- 
do la forma de onda triangular. El 
efecto de modulación de timbre susti¬ 
tuye la salida de onda triangular pro¬ 
ducida por el oscilador 1, por una 
combinación generada por los oscila¬ 
dores 1 y 3, de «timbre modulado». 

Una de las aplicaciones más intere¬ 
santes de esta posibilidad, es la de 
conseguir el sonido de campanas y 
gongs, mediante una estructura de 
sobretono no armónico. 

En este último programa de ejem¬ 
plo (3), podemos ver el efecto que si¬ 
mula el vuelo de un mosquito, por apli¬ 
cación de la técnica de modulación 
de timbre. 

La línea 20 asigna su valor a la varia¬ 
ble S. A continuación, ponemos a cero 
los registros del chip, como medida 
de precaución. 

En la línea 30, se ajusta la alta fre¬ 
cuencia para la voz 1, seguidamente 
la relación de ataque/decaimiento, la 
alta frecuencia para la voz 3, el volu¬ 
men al máximo y, por último, la sen¬ 
tencia POKE S+4,19 sincroniza el 
control de forma de onda para la voz 1. 

La línea 40 supone un bucle de 
tiempo de retardo. La 50, sincroniza el 
control de forma de onda para la voz 1, 
ajustando el paro de la onda triangu¬ 
lar. 

Por último, la línea 60 establece un 
tiempo de espera, antes de bajar 
completamente el volumen. 


CONSIDERACIONES FINALES 

Si bien es cierto que no resulta nada 
difícil crear música, a un nivel ele¬ 
mental, con nuestro COMMODORE, 
no lo es menos que el hecho de domi¬ 
nar las técnicas avanzadas de progra¬ 
mación del SID, requiere mucho tiem¬ 
po de estudio y experimentación. 

.En cualquier caso, no debemos 
preocuparnos en exceso por este he¬ 
cho, comenzando por realizar los ex¬ 
perimentos más elementales, con el 
ánimo de ir avanzando progresiva¬ 
mente, incorporando cada vez más 
elementos adicionales a nuestra com¬ 
posición. 

Del mismo modo, no podemos pre¬ 
tender crear espectaculares efectos 
sonoros, desde un principio. En este 
sentido, puede ser una buena técnica, 
el partir de los efectos contenidos en 
la extensa bibliografía de COMMO¬ 
DORE, con intención de desarrollar 
otros nuevos a partir de ellos. 



El SID está dotado de tres tipos de filtros, 
capaces de alterar la forma de la onda. 


10 REM - SIRENA POLICIA 

20 S"54272 : POKE S+24,15:P0KE S+5,0:POKE S+6,240 

-101- 

-172- 

30 FOR 1-1 TO 10 

-133- 

40 POKE S+4,33:POKE S,0:POKE S+l,40 

-023- 

50 GOSUB 110 

-103- 

60 POKE S,0:POKE S+l,30 

-075- 

70 GOSUB 110 

-105- 

00 POKE S+4,32 

-026- 

90 NEXT 

-200- 

100 END 

-136- 

110 FOR J-l TO 500:NEXT 

-090- 

120 RETURN 

-147- 

10 REM - COMPOSICION 

-021- 

20 S“54272:FOR 1-0 TO 24:POKE S+1,0:NEXT 

-123- 

30 POKE S+5,9:POKE S+6,0:POKE S+24,15 

-130- 

40 READ A,B,C 

-222- 

50 IF A<0 THEN END 

-039- 

60 POKE S+l,A:POKE S,B:POKE S+4,33 

-000- 

70 FOR 1-1 TO C:NEXT 

-220- 

00 POKE S+4,32:FOR 1-1 TO 50:NEXT 

-211- 

90 GOTO 40 

-070- 

100 DATA 25,177,250,20,214,250 

-252- 

110 DATA 25,177,250,25,177,250 

-002- 

120 DATA 25,177,125,20,214,125 

-000- 

130 DATA 32,94,750,25,177,250 

-213- 

140 DATA 20,214,250,19,63,250 

-205- 

150 DATA 19,63,250,19,63,250 

-160- 

160 DATA 21,154,63,24,63,63 

-107- 

170 DATA 25,177,250,24,63,125 

-210- 

100 DATA 19,63,250,-1,-1,-1 

-003- 

10 REM - MOSQUITO 

-003- 

20 S-54272:FOR 1-0 TO 24:POKE S+1,0:NEXT 

-123- 

30 POKE S+l,100:POKE S+5,219:POKE S+15,20:POKE 

S+24,1 

5:POKE S+4,19 

-021- 

40 FOR 1-1 TO 5000:NEXT 

-099- 

50 POKE S+4,10 

-027- 

60 FOR 1-1 TO 1000:NEXT:POKE S+24,0 

-042- 
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_Con laexplosión demqgráficaen la Tierra, llegaron 

los problemas, tanto de alimentación como de elimina¬ 

ción de los trillones de toneladas de basura que produce 
un planeta entero. El hambre se resolvió con colonias en 


otros planetas, y tras muchas investigaciones se consi¬ 

guió que los productos de desecho tuvieran utilidad en 
otros satélites, uno de ellos es... Erebus. 


rebus se encuentra a muchos 
años-luz de la Tierra, pero su 
utilidad práctica es incues¬ 
tionable, ya que se trata de 
un satélite natural, en el cual 
se han realizado profundas modificaciones 
internas, convirtiéndolo en un planeta total¬ 
mente automatizado y estructurado en to¬ 
dos sus niveles, con una misión concreta: el 
reciclado de los productos de desecho te¬ 
rrestres en producción de gases y sustan¬ 
cias químicas útiles. 

Pero últimamente, los problemas pare¬ 
cen ser graves, ya que expertos observado¬ 
res terrestres han notado una gran activi¬ 
dad en los alrededores de Erebus. La inves¬ 
tigación se ha puesto en marcha, y con 




gran horror, se ha descubierto que los veci¬ 
nos en el planeta Hadebus, enemigos acé¬ 
rrimos de la Tierra, estaban modificando los 
procesos de refinamiento automático, con 
el objeto de producir un gas nervioso que 
en suficiente cantidad seria letal para el to¬ 
tal de la población terrestre. De este modo, 
ivaya casualidad!, hemos sido selecciona¬ 
dos entre posibles aspirantes para ser los 
encargados de dirigirnos a Erebus y elimi¬ 
nar a los hadebianos del planeta. 

La refinería se encuentra dividida en va¬ 
rios niveles de tipo circular (a medida que 
los recorramos volveremos al punto de par¬ 
tida), interconectados por puertas dimen¬ 
sionales. Las instrucciones son claras: debe¬ 
remos volar por cada nivel, exterminando a 
los enemigos que en él se hallen, hasta que 
el conducto dimensional se abra, permitién¬ 
donos el paso a otro nivel superior. Hasta 
llegar a éste, y a través del conducto di¬ 
mensional, también deberemos luchar por 
espacio de 30 segundos contra los ataques 
de que seremos objeto. 

Habremos de tener en cuenta que Ere- 


bus está edificado en su totalidad, y no po¬ 
dremos tocar ningún objeto o pared, pues 
supondría la explosión inmediata de nues¬ 
tra nave. En el panel de control tendremos 
información sobre nuestra situación en el ni¬ 
vel, nombre de este, naves que nos quedan 
y puntuación. Se cuenta que los hadebia¬ 
nos son grandes luchadores ¿podrán con 
nosotros? 


VEREDICTO FINAL 



FICHA TECNICA 


NOMBRE 

EREBUS 


PRECIO 

875 PTAS. 


[SOPORTE 

CASETE 

TIPO 

ACCION 


MODELO 

C-64, C-128 

OBSERVACIONES 

NINGUNA 
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m w _ 

En esta peligrosa profesión, el miedo no existe, y el 

unos pocos llegan a ser catalogados de buenos pilotos, 

riesgo de morir bajo las balas de un antiaéreo o en lucha 

y para ello deberán haber superado múltiples misiones; 

con un enemigo es constante, ya que los aviones suelen 

pero uno, sólo uno, será el As de Ases ¿eres quizás tú el 

ser de parecida tecnología, por lo cual en el aire, lo úni- 

destinado a tomar como propio ese apelativo? 

co que influye es la experiencia, precisión y valentía. Sólo 


n As de Ases se nos ofrece la 
oportunidad de practicar 
antes de lanzarnos a la lu¬ 
cha, lo cual será de mucha 
ayuda, a menos que nos 
guste ir de suicidas por el mundo. En esta 
modalidad de práctica, volaremos sobre el 
canal de la Mancha, destruyendo aviones 
enemigos, para retornar a la base una vez 
agotada la munición o el combustible, o 
bien porque hayamos sufrido serios daños 
en nuestro avión. 

Si por el contrario escogemos la modali¬ 
dad Misión, deberemos elegir una de las 
cuatro que se nos presentan: rescate de 
presos de un tren en marcha, bombardeo 
de submarinos enemigos, lucha aérea, y 
destrucción de bombas V-l antes de que 




caigan sobre Londres. Una vez cumplido 
este trámite, podremos acceder a un Infor¬ 
me de Inteligencia, en el cual se detallará la 
situación exacta de los blancos enemigos, 
así como de sus pretensiones y fuerzas de 
que disponen. 

Ahora ya estamos preparados para car¬ 
gar nuestro avión, dependiendo de la mi¬ 
sión, puesto que si vamos a luchar en el aire 
contra bombarderos no necesitaremos 
bombas, sino mucha metralla y misiles, al 
contrario que en un ataque a trenes o sub¬ 
marinos. 

Durante el vuelo, tendremos una vista del 
piloto, en la cual se reflejará un compás, un 
radar, un velocímetro, un señalizador de al¬ 
tura, un horizonte artificial, y un interfono, 
que nos informará de las partes del avión 
con averías. En otra vista diferente, el inge¬ 
niero de vuelo controlará los motores y héli¬ 
ces del avión. El navegante será el encar¬ 
gado de llevarnos por la ruta más segura 
en base al Informe de Inteligencia, y el 
bombardero controlará el tipo de arma¬ 


mento, el que queda y su utilización; en de¬ 
finitiva, toda una labor de equipo. 

Será necesaria una gran cooperación 
entre todos los componentes de la nave, 
para llevar a cabo con éxito cada misión, 
puesto que sólo acabar las cuatro posibles, 
sanos y salvos, nos otorgará el preciado 
galardón de... As de Ases. 
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FINAL ' 



GRAFICOS 

* * * * 

SONIDO 

* * * * 

Originalidad 

♦ * 

[dificultad 
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FICHA TECNICA 


NOMBRE ACE OFACES 


[precio 

875 PTAS. 

SOPORTE 

CASETE 

TIPO 

ACCION - }, 


MODELO 

C-64, C-128 

OBSERVACIONES 

NINGUNA 
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El hombre, desde su más tierna infancia en la historia, 
se interesó por el dominio de las capacidades naturales 
que le fueron negadas por la evolución en un principio, y 

ni corto ni perezoso, se lanzó a la aventura de surcar los 

aires, así como la de dominar los mares, sin duda ante¬ 


rior; hoy, la perfección ha llegado hasta los ordenado¬ 

res, ya que para ser un buen diseñador de veleros, pa- 
trón y sufrido tripulante, únicamente hace falta sentarse y 
aprender con... Sailing. 


ailing es un juego de estrate¬ 
gia y simulación, diseñado 
para captar la dificultad de 
las competiciones de veleros 
de alto nivel, será necesaria 
toda la pericia de que dispongamos para 
hacernos con nuestro velero, y lograr con¬ 
ducirlo a través de las boyas que señalan el 
recorrido, ya que un solo fallo nos hará 
caer en una inmediata descalificación. 

En primer lugar, gozaremos de la exci¬ 
tante posibilidad de diseñar nuestro velero 
de competición a placer, y modificarlo se¬ 
gún nuestras pretensiones personales, aun¬ 
que también deberemos pensar en el parte 
metereológico y corregir este diseño te¬ 
niendo en cuenta las condiciones que nos 
podremos encontraren la mar. Después de 
bautizar a nuestro barco, podremos cam¬ 
biar la eslora, calado, longitud de los másti¬ 
les, las velas, timón..., y nos ayudará mucho 
escoger las condiciones propicias para un 
determinado estado del tiempo. Por ejem¬ 
plo, incrementar la eslora del velero nos 
proporcionará un área mayor de desliza¬ 
miento, pero también nos restará manio- 
brabilidad en alta mar. 

Una vez estemos seguros de haber con¬ 
seguido un diseño perfecto, pasaremos ya 
a la competición propiamente dicha, parti¬ 
cipando en una liga internacional, en la 
que partiremos en último lugar de la regata, 
debiendo ir remontando puestos según la 
pericia adquirida. Cada regata constará 
de tres boyas colocadas en triángulo, las 
cuales deberemos ir superando por fuera 
un determinado número de vueltas, inten¬ 
tando en lo más posible acercarnos al com¬ 
petidor que tengamos más cerca. Para ello, 
dispondremos en la cabina de controles de 
radar, que nos informarán de nuestra posi¬ 



ción en cada instante, así como una brúju¬ 
la, o un indicador de la velocidad del vien¬ 
to. 

Creemos que todo está ya dispuesto pa¬ 
ra que nos convirtamos en unos verdaderos 
lobos de mar ¿lograremos llevar nuestro 
pabellón a lo más alto? sólo es cuestión de 
intentarlo, ya que Sailing nos ofrece la 
oportunidad para conseguirlo. 
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FICHA TECNICA 


NOMBRE 

SAILING 


PRECIO 

880 PTAS. 


SOPORTE 

CASETE 

TIPO 

DEPORTES 


MODELO 

C-64, C-128 

OBSERVACIONES 

NINGUNA 
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Los dedos se ajustan en sus respectivos agujeros, y se 

crispan sobre la superficie de la bola, imprimiéndole un 

impulso suave, casi perfecto, que la lleva rodando en di¬ 


rección a los 10 bolos que se hallan al fondo y... ¡Pleno!, 

el lanzamiento ha sido perfecto, y esto sólo se consigue 

en... Tenth Frame. 


¡ hemos sido en alguna oca¬ 
sión amantes del entretenido 
y espectacular juego de los 
bolos, ahora tenemos con 
nosotros una adaptación 
muy real de este deporte para nuestro or¬ 
denador, con el que podremos gozar de la 
emoción de conseguir un Pleno o quedar¬ 
nos en un menos afortunado Split o Spare. 

Tenth Frame ofrece la posibilidad de ju¬ 
gar de uno hasta ocho jugadores, en siste¬ 
ma de liga, o simplemente a partidas suel¬ 
tas. Eligiendo la opción de liga deberemos 
reseñar el nombre de los equipos, y sus res¬ 
pectivos jugadores, así como el número de 
partidas completas de que constará cada 
«match». Una vez en juego, será posible 
ajustar la dirección del tiro a nuestro gusto, 
así como la velocidad que queramos impri¬ 
mirla en su carrera hacia los bolos, y tam¬ 
bién el gancho o efecto con que deseemos 
lanzarla; todos estos matices permitirán 
que el juego sea de una gran emoción y de 
un ajuste muy cercano a la realidad. 

Los bolos estarán dispuestos de forma 
triangular, con cuatro en la base, y filas de 
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tres, dos y uno, contando desde atrás. Por 
supuesto, deberemos intentar golpear la 
bola siempre entre los huecos del primer 
bolo con los dos que tiene inmediatamente 
detrás; eso nos dará mayores posibilidades 
de conseguir un pleno, que es derribar la 
totalidad de bolos con un lanzamiento. 

Cuando no consigamos el pleno, debe¬ 
remos intentar realizar con la segunda bola 
un semipleno, tirando los que nos hayan 
quedado en pie. En el caso de que en el pri¬ 



FICHA TECNICA 


NOMBRE 

TENTH FRAME 


PRECIO 

875 PTAS. 


SOPORTE 

CASETE 

TIPO 

DEPORTES 


MODELO 

C-64, C-128 

OBSERVACIONES 

NINGUNA 
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mer lanzamiento hayamos dejado un espa¬ 
cio mayor de un hueco entre los bolos que 
no han caído, se llama Split, si este hueco es 
de dos bolos, se denomina Spare, y como 
es lógico será mucho más difícil de conse¬ 
guir el semipleno al hallarse estos más dis¬ 
persos. 

Cada partida constará de 10 jugadas, y 
cada jugador tirará 2 veces por jugada, 
salvo que consiga un pleno en la primera ti¬ 
rada, gozando entonces de dos lanza¬ 
mientos más. La puntuación irá en relación 
con el número de bolos derribados, plenos 
o semiplenos conseguidos. La emoción es 
mayor con cada jugada ¿eres tú el futuro 
campeón? 
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Con unos increíbles gráficos y realismo de movimien- 

libres, llega con arrolladora fuerza para tu AMIGA el 

tos, con tapones, lanzamientos en suspensión, persona- 

les, machaques en canasta, fintas y lanzamientos de tiros 

qran juego del C-64; estamos hablando ni más ni menos 

que de la perfección del baloncesto, es... One on One. 


on el objeto de que los pro¬ 
pietarios del AMIGA tengan 
acceso también a nuestra 
sección de Softmodore, he¬ 
mos decidido incluir en 
nuestros comentarios juegos para este gran 
ordenador. Iniciando esta serie: One on 
One; resalta entre todos por su gran rapi¬ 
dez y multitud de posibilidades, que hacen 
que verdaderamente disfrutemos del ba¬ 
loncesto como si estuviéramos en la can¬ 
cha. 

Las diferencias más remarcables con res¬ 
pecto a su homónimo para C-64 son, como 
se puede apreciar en una primera aproxi¬ 
mación, una rapidez mucho mayor de jue¬ 
go, lo que hace que este sea más trepidan¬ 
te, aunque también es de reseñar que los 
gráficos son muy superiores en calidad y 
definición, ¡casi podemos sentir el aliento 
del adversario en nuestro cuello! 

Por lo demás, y como ya debemos saber, 
el enfrentamiento se produce entre dos 
monstruos de la canasta: Larry Bird, más al¬ 
to, mejor tirador y con una regularidad pas¬ 
mosa en su juego, contra Julius Erwing; Dr. J, 
mucho más hábil y rápido, con mayor ma¬ 
nejo de balón y un salto más potente. 

En la cancha, serán posibles las fintas, 
mediante una ligera presión sobre el botón 
del ¡oystick, y asimismo, los cambios de ba¬ 
lón de una a otra mano, con lo que si com¬ 
binamos estas posibilidades, podremos 
efectuar jugadas rápidas de gran belleza. 
El tiro en suspensión dependerá del lapso 
de tiempo que tengamos presionado el bo¬ 
tón al «lanzar», puesto que cuando lo libe¬ 
remos, el balón saldrá de nuestras manos 
(cuidado con incurrir en dobles). Las perso¬ 
nales podrán ser en ataque o en defensa, y 
serán sancionadas con tiros libres. Cuando 
nuestro nivel de cansancio sea muy alto, 
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podremos pedir tiempo muerto, lo que hará 
que volvamos como rosas al partido, aun¬ 
que nuestro adversario también se recupe¬ 
rará, claro. 

Aparte de estas características, señalar 
que podremos elegir el tiempo de juego, o 
un partido a puntos, el nivel de nuestro opo¬ 
nente, o jugar con otro amigo encarnando 
cada uno a un jugador,- todo es cuestión de 
probarlo porque, sinceramente, el One on 
One para AMIGA es una maravilla. 



FICHA TECNICA 


NOMBRE 

ONE ON ONE 

PRECIO 

13.000 PTAS. 

SOPORTE 

DISCO 

TIPO 

DEPORTES 

MODELO 

AMIGA 

OBSERVACIONES 

NINGUNA 
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Digitalizador de imágenes para AMIGA 

Jt la imagen por 
los números 



Como ya vimos en un número anterior, el digitalizador de imágenes para 

C-64, de la casa P RINT-TECHNIK, era sorprendente. Pues bien, imaginemos 

este mismo producto aplicado al ordenador Amiga de Com modore, con su 

gran capacidad en el t rat amien to de los colores y de la alta resolución: sim- 
plemente impresionante. 


ara el uso del digitalizador, 
necesitaremos un Commo¬ 
dore Amiga con monitor (en 
color, a ser posible), una cá¬ 
mara de vídeo en BLANCO 
Y NEGRO y el Digi-View de PRINT-TECH- 
NIK. Este último equipo está compuesto por 
hardware y software. 

El hardware consiste en una pequeña 
placa encerrada en una carcasa plástica 
del tamaño de una caja de cerillas media¬ 
na. En esta carcasa existen dos conexiones: 
una es para conectar al port paralelo de la 
parte trasera del Amiga, y la otra para la 
cámara de vídeo; sencillo, ¿no? Para hacer 
las conexiones antes mencionadas, es pre¬ 
ciso tener desconectado el ordenador. 

En el manual tenemos 4 figuras que nos 
indican las formas posibles de conexión pa¬ 
ra efectuar varias tareas, como son: 

— Monitor de circuito cerrado. 

— Monitor de circuito cerrado, utilizan¬ 
do un televisor doméstico. 

— Conexión para ajuste de la cámara. 

— Conexión para la digitalización. 

Esta última, es de las más sencillas de 
realizar, y es de la que nos ocuparemos a lo 
largo de este artículo. 

Así pues, para ajustar el equipo y enfocar 
la cámara, en modo de digitalización hare¬ 
mos varias pruebas, hasta que el objeto 
aparezca nítido y claro en la pantalla. 



El software 


En cuanto al software, se instala como 
otro disco cualquiera; es decir, arrancare¬ 
mos el Amiga utilizando los discos Kickstart 
y Workbench (versión 1.1 o posterior) y a 
continuación, insertaremos el disco Digi- 
View, al abrirlo, veremos una ventana con 
dos iconos: RGB e HIRES. 

Estas dos opciones se refieren al trata¬ 
miento de la alta resolución del Amiga. La 
RGB permite 32 o 4096 colores en un for¬ 
mato de 320 x 200 pixels y la HIRES es mo- 
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nocolor en formato 640 x 400. 

Como ya vimos en un artículo anterior 
sobre las características del Amiga, esta úl¬ 
tima opción (640 x 400) crea problemas en 
la pantalla (imputables al Amiga, no al Digi- 
View), debido al modo «¡nterlaced», que¬ 
dando la pantalla confusa y vibrante. Las 
pruebas realizadas con Digi-View en este 
modo, no han resuelto el problema, sino 
que más bien lo agravan. Entre los citados 
inconvenientes, se encuentran: 

— Representación de «basura» en la 
parte superior de la pantalla. 

— Desfase de la flechita-icono para se¬ 
leccionar el menú (hay que «apuntar» bas¬ 
tante más a la izquierda). 

— Después de digitalizar una vez, la re¬ 
producción que en el proceso de digitali- 
zación era aceptable, queda borrosa y con 
«doble imagen»; esto mismo sucede con las 
ventanas que aparecen al seleccionar el 
menú. 

Por todo lo anterior, en el resto del artícu¬ 
lo nos dedicaremos a la opción RGB, que 
es, con mucho, la mejor y más sorprenden¬ 
te. 



Digitalizando 

Una vez seleccionada la opción RGB y 
enfocada la cámara, podemos pasar a la 
fase más espectacular del proceso: la digi- 
talización; para ello, debemos colocar de¬ 
lante del objetivo de la cámara una rueda 
de filtros (rojo, verde y azul), que acompaña 
al equipo, y seleccionar del menú Digi-View 
la opción RED-DIGITIZE (con el filtro rojo 
delante del objetivo). 

Esta operación dura unos 10 segundos y se 
realizará, de igual manera, con los colores 
verde y azul (opciones GREEN y BLUE res¬ 
pectivamente). Transcurriendo el proceso 
completo de digitalización en unos 30 se¬ 
gundos, en los cuales el modelo debe estar 
inmóvil. 

Con este proceso, se cargan en la me¬ 
moria del ordenador tres imágenes diferen¬ 
tes, una por cada color, que una vez trata¬ 
das matemáticamente, formarán la imagen 
completa del objeto en color. En cuanto a 
la elección de tonos, tenemos dos opcio¬ 
nes: 


32 colores: La imagen se optimiza calcu¬ 
lando la aproximación a los 32 tonos más 
representativos, necesarios para su repre¬ 
sentación. Se produce una imagen bastan¬ 
te aceptable, que se puede grabar en disco 
ocupando poco espacio, y poca memoria. 
Esta opción se puede utilizar con los más 
populares programas de tratamiento gráfi¬ 
co (Deluxe Paint entre ellos, como tendre¬ 
mos ocasión de comprobar más adelante). 

4096 colores: Al igual que en la opción 
anterior, la imagen se optimiza, empleando 


digi Víew 

Video Digítizer 

v,dec •, W ek 

m V l i ,o a 
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esta vez 4096 colores, a costa de ocupar 
mucha más memoria y más espacio en dis¬ 
co en su grabación, amen de no ser com¬ 
patible con muchos de los programas gráfi¬ 
cos (entre ellos, el Deluxe Paint). No obstan¬ 
te, y como resulta obvio pensar, la imagen 
aparece más natural y «fotográfica». De to¬ 
das formas, si el objeto no presenta una 
gran gama cromática, la diferencia entre 
estas dos opciones es mínima. 

La buena iluminación del modelo juega 
un papel fundamental, ya que un defecto 
de iluminación puede convertir un fondo 
blgnco en una mezcla extraña de tonos 
que, dando un conjunto claro, «gastará» 
una gran cantidad de colores en su confec¬ 
ción, los cuales en el proceso de optimiza¬ 
ción le serán «robados» al objeto principal. 

Controlando 


Con la imagen en memoria, Digi-View 
nos permite «trastear» casi lo indecible, pa¬ 
ra lo cual seleccionaremos el menú «CON¬ 


TROLS» que nos permitirá ajustar, con man¬ 
dos parecidos a potenciómetros deslizan¬ 
tes, los siguientes controles: 

— Brillo. 

— Contraste. 

— Saturación (igual que el color de un 
televisor). 

— Azul: Máximo = azul, mínimo = amar¡- 
llo. 

— Rojo: Máximo = rojo, mínimo = verde. 

— Sharp: Controla la nitidez o grano de 
la imagen. 

— Default: Permite dejar la imagen co¬ 
mo estaba, una vez que la hayamos estro¬ 
peado con los controles anteriores. 

— 4096: Visualiza nuestros «arreglos» en 
4096 colores. 

— 32: Idem que la anterior pero en 32 
colores. 

Grabando 


Para grabar la imagen disponemos de 
tres opciones: 


— 4096 colores: Graba la imagen en 
4096 colores, según hemos comentado 
anteriormente. 

— 32 colores: Graba la imagen en 32 
colores. 

— B/W (Red): Graba la imagen digitali¬ 
zada roja, tal y como está almacenada. Es¬ 
ta opción da una imagen en blanco y ne¬ 
gro y se puede obtener digitalizando des¬ 
de el rojo con el filtro incoloro delante del 
objetivo de la cámara. 

Se utiliza para compatibilizarlo con pro¬ 
gramas gráficos que necesitan este tipo de 
imagen. 

Retocando 


Como ya hemos comentado, emplean¬ 
do la grabación de imagen en 32 colores, 
podemos recuperarla después desde el 
programa Deluxe Paint. 

Para cargar una imagen desde esta apli¬ 
cación, se selecciona la opción LOAD y en 
el recuadro que contiene la palabra LO- 
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RES, pulsamos el botón izquierdo del ratón 
y procedemos a su borrado con la tecla 
DEL. A continuación tecleamos el nombre 
del disco que contenga las imágenes a tra¬ 
tar seguido de dos puntos, y pulsamos RE- 
TURN. Así, al seleccionar LOAD, aparece¬ 
rán los nombres de los ficheros del nuevo 
disco. 

Este programa, permite un tratamiento 
de gráficos increíble, y es ideal para dar re¬ 
toques a una imagen, por lo cual es el com¬ 
plemento perfecto para usar con Digi-View. 

Entre las características más notables de 
Deluxe Paint, cabe destacar las siguientes: 

— Zoom variable: Nos permite ampliar 
una zona cualquiera de la imagen con un 
aumento variable; es muy cómodo para ver 
puntos en detalle o los colores que compo¬ 
nen una zona. 

— Texto: Podemos escribir el texto que 
queramos en cualquier punto de la panta¬ 
lla. Tenemos a nuestra disposición un com¬ 
pleto repertorio de tipos de letra en diferen¬ 
tes tamaños. 



















— Brochas: Para dibujar podemos esco¬ 
ger como «brocha» cualquier zona de la 
pantalla, de cualquier tamaño, pudiendo 
utilizarla con la imagen auxiliar o incluso 
con otra imagen que recuperemos desde el 
disco. Las brochas se pueden aumentar, 
disminuir, doblar, estirar, duplicar en x, en y 
o en ambas a la vez, girar, curvar, balan¬ 
cear y cualquier tipo de «perrería» que nos 
imaginemos. Disponen de un menú com¬ 
pletísimo de tratamiento. 

— Polígonos: Con una señe de opciones 
tipo ¡cono, situadas en la parte derecha de 
la pantalla, podemos dibujar cuadrados, 
rectángulos, círculos, elipses, polígonos irre¬ 
gulares, etc., rellenos o no, del color elegido 
entre los 32 posibles de la paleta de esa 
imagen. 

— Definición de colores? Los 32 colores 
originales se pueden cambiar a voluntad, 
mediante un completísimo menú de ayuda 
para ello. 

— Simetría: Podemos definir cualquier ti¬ 
po de simetría, eligiendo el número de pun- 
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tos que tendrá. Por ejemplo: escogemos 
una simetría de 6; esto indica que lo que di¬ 
bujemos en cualquier zona, se dibujará 
otras cinco veces más con un ángulo de 60 
grados entre los trazos, a partir del punto 
de simetría que nosotros mismos elijamos. 

... Y resumiendo 


En resumen, el programa de gráficos De- 
luxe Paint, es el mejor programa de gráficos 
que hemos visto hasta el momento en orde¬ 
nadores de esta categoría; las opciones de 
que dispone muchas veces sorprenden por 
lo inusual, otras por su efectividad y muchas 
otras veces por su espectacularidad. 

Tanto es así, que merece un comentario 
más a fondo, que ya anticipamos estará 
muy pronto en estas páginas. 

Con la resolución del Amiga, sus 32 colo¬ 


res y las múltiples y útiles funciones de esta 
aplicación, cualquiera puede llegar a sor¬ 
prendernos con dedicarle un poquito de 
tiempo y entrenamiento. 



Así pues, Deluxe Paint forma un equipo 
perfecto con Digi-View en el tratamiento de 
imágenes, pudiendo llegar a adquirir, sin 
duda, una calidad profesional. 


Nombre: Digi-View (Amiga) 
Precio: 105.000 ptas. 
Distribuidor: 

Compulogical 

Sta. Cruz de Marcenado, 31 

28015 MADRID 

TeL: (91) 241 10 63 



Tu líict'G COMMODORE 
Tu Micro COMMODORE 

Tu Micro C0MM0D0RE 
Tu Micro COMMODORE 

Tu micro commoDORe 

tinrníciio commoóop.e 

"pt< Micro COMM<yn>OT>£ 

Tu Micro [0KM0D01\£ 


tu mm 
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El travieso C-Byte tiene el honor de 
invitaros a la participación en nuestro 
sexto concurso de programación. Los 
reguisitos necesarios son bien pocos: 

• Saber programar un ordenador COMMODORE. 

• Ser español o extranjero y 

• Tener una edad comprendida entre 5 y 105 años. 

Fácil, ¿verdad? 

En cuanto al premio, la mar de atractivo: 


f oo.ooo otas. 

en material informático. 


Y en fin, si alguno de los programas destaca por su originalidad, estética o 
comicidad, no sería de extrañar que le cayera alguna cosilla más... 


BASES DEL CONCURSO 


Los programas remitidos al concurso de¬ 
berán ser creación original del autor o autores, y 
completamente inéditos, pudiendo remitir tantos pro¬ 
gramas como se desee. 


Los programas deberán ser enviados en 
casete o disco flexible a TU MICRO COMMODORE 
(Concurso de programación) Apartado de Correos 
61.294. 28080 MADRID. 


Los programas podrán ser de cualquier ti¬ 
po (juegos, utilidades, gestión, educativos) y habrán 
de estar escritos en lenguaje BASIC o Código Máqui¬ 
na. 


^K1 Los programas deberán ser remitidos 
desprovistos de cualquier tipo de protección, que im¬ 
pida o dificulte el análisis del mismo, asi como repro¬ 
ducción en estas páginas y su introducción como lis¬ 
tado siguiendo el sistema FUERA ERRORES. 


Cuando la ejecución del programa precise 
de la concurrencia de determinado periférico o adi¬ 
tamento (joysticks, tabletas gráficas, programas co¬ 
merciales de ayuda), se valorará la indicación de las 
modificaciones pertinentes, para que el programa 
pueda ser disfrutado por cualquier usuario en la con¬ 
figuración básica. 


Kil Todo programa presentado al concurso 
deberá acompañarse de los siguientes datos: 


• Datos personales del concursante. 

• Nombre del programa. 

• Modelo para el que está destinado. 

• Breve descripción del programa detallando las 
indicaciones necesarias para su ejecución. 


:EEI Los programas premiados pasarán a ser 
propiedad de la revista TU MICRO COMMODORE, pu¬ 
diendo hacer ésta libre uso de ellos, y renunciando 
sus autores a cualquier otra compensación distinta 
al premio. 


HE1 Los programas no premiados que por su 
calidad se hagan merecedores de su publicación, 
serán adquiridos por la editorial, aplicando la tarifa 
vigente. 

Los programas recibidos con posteriori¬ 
dad a la fecha tope de la presente edición, serán au¬ 
tomáticamente incluidos en los destinados a la si¬ 
guiente. 


H¡1 El jurado decidirá sobre todos los aspec¬ 
tos no contemplados en estas bases y su decisión 
será inapelable. 

_ Y ahora a darse mucha prisa , el plaz o para lai re¬ 
c epción de programas termina el próximo día 1 de 
Junio de 1987. ' 


¡¡SUERTE!! 
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ScroU Maker 

O cómo hacer scroll sin saber código máquina.,. 


Todos hemos visto miles de veces el efecto scroll: parte de la pantalla se 

desliza suavemente, mientras otra zona queda fija. Sabemos que para con¬ 

seguir este efecto hay que recurrir al código máquina, y a interrupciones de 
barrido. Pero... 


quí tenemos a SCROLL MA¬ 
KER, una utilidad que sabe 
hacer scrolls como nadie (in¬ 
cluso mejor que su inventor...) 
SCROLL MAKER te permi¬ 
te, sin necesidad de saber programar en 
código máquina, generar el programa ne¬ 
cesario para realizar el efecto de scroll. To¬ 
da la información que el programa necesi¬ 


ta será solicitada en modo interactivo, y to¬ 
do lo que debes hacer es contestar las 
cuestiones oportunas (algo debíamos po¬ 
ner de nuestra parte, ¿no?). 

Copia el listado tal como aparece; a tra¬ 
vés de los numerosos REM que aparecen en 
el mismo, podrás seguir su funcionamiento. 
El corazón de SCROLL MAKER (de ahora 
en adelante, SM) lo constituye una rutina 


en código máquina, que es la que puedes 
ver en las líneas DATA. 

Esta rutina forma parte del programa fi¬ 
nal, y es la encargada del «trabajo sucio»: 
activar las interrupciones por barrido, ini- 
cializar el VIC, cambiar los vectores de inte¬ 
rrupción, etc. 

El resto del programa genera las líneas 
necesarias para mover sólo la parte de la 
pantalla que desees, «parcheando» (térmi¬ 
no técnico que significa modificar chapu¬ 
ceramente) el programa anterior y gene¬ 
rando el código adecuado a tu programa 
en particular. 

El código generado se halla optimizado 
en cuanto a velocidad, punto éste muy críti¬ 
co en cuestiones relacionadas con las inte- 
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rrupciones de vídeo. Tal vez pueda gene¬ 
rarse un programa más corto, pero cual¬ 
quier programa más corto será más lento... 
Con el riesgo de serlo demasiado. 

Cómo utilizar Scroll Maker 

Como podrás comprobar, el uso de SM 
es extremadamente sencillo. En primer lu¬ 
gar, aparecerá la pantalla de presenta¬ 
ción, mientras el ordenador realiza sus ta¬ 
reas de inicialización. 

A continuación, debemos indicar la zona 
de la pantalla que deseamos desplazar. 
Para ello, disponemos de una barra, que 
podremos mover de arriba a abajo con las 
teclas de cursor. 

Debemos situar dicha barra apuntando 
a la primera línea de la zona en movimien¬ 
to, y pulsar RETURN; en ese momento, vere¬ 
mos que el indicador presenta el mensaje 
LINEA DE SCROLL. 

Ahora se debe desplazar para señalar la 
última línea que debe moverse y, como en 
el caso anterior, pulsar RETURN. Todas las 
líneas intermedias quedan también marca¬ 
das como líneas de scroll. De este modo, 
podemos apreciar gráficamente que parte 
de la pantalla vamos a mover. 

Seguidamente, se nos pedirá que indi¬ 
quemos el modo del scroll. Lo que hacemos 
aquí, es señalar cómo deseamos generar 
las líneas que vayan apareciendo por la 
pantalla, a medida que ésta se va deslizan¬ 
do. Es decir, si la pantalla se mueve a la de¬ 
recha, de donde vamos a sacar la nueva 
columna que debe aparecer en el lado iz¬ 
quierdo. 

Aquí tenemos dos opciones, que explica¬ 
mos seguidamente: 

1 -MAPA: En esta opción, se lee la colum¬ 
na desde un mapa de memoria, de modo 
que aparece un paisaje nuevo cada vez. Si 
especificamos esta opción, será necesario 
indicar la dirección del mapa en la memo¬ 
ria (obvio). 

Este mapa habrá de estar organizado 
de forma similar a la memoria de pantalla: 
tendremos un área de 25ó*N bytes, donde 
N es el número de filas de pantalla que es¬ 


tamos tratando. Es decir, si desplazamos, 
por ejemplo, 10 filas, debemos reservar 
256*10=2560 bytes de memoria. 

Cada 256 bytes pertenecen a una línea 
de la pantalla, de forma que van siendo in¬ 
troducidas en ella cada vez. Es decir, es 
como si la pantalla fuese una ventana que 
va «barriendo» esa área de memoria, mos¬ 
trando su contenido. 

2-BUCLE: Con esta opción, haremos que 
la zona en deslizamiento se comporte co¬ 
mo un bucle.- lo que salga por un lado, rea¬ 
parecerá por el otro, con lo cual se evita te¬ 
ner que crear un mapa y reservarle una zo¬ 
na de memoria, aunque a cambio, hace el 
paisaje un poco más «aburrido». 

Sólo para avanzados 

Una vez indicado el modo de generar el 
paisaje del fondo, el programa nos interro¬ 
gará sobre si deseamos utilizar alguna ruti¬ 
na sincronizada. Este es un tema muy deli¬ 
cado y algo específico, por lo que si no sa¬ 
bes programar en código máquina, res¬ 
ponde NO a esta opción (un error, y el re¬ 
sultado te obligará a apagar el ordena¬ 
dor). 

Explicamos un poco lo que significa eso 
de las «rutinas sincronizadas»: normalmen¬ 
te, cuando la rutina de scroll finaliza su ta¬ 
rea, salta a una rutina del sistema (en 
$EA31), la cual gestiona los procesos que 
deben ser servidos por interrupciones (lec¬ 
tura del teclado, reloj, etc.). 

Pero si deseamos intercalar en medio al¬ 
guna rutina propia (por ejemplo, que mue¬ 
va sprites o algo similar), podremos hacerlo 
mediante esta opción: indicaremos la di¬ 
rección inicial de nuestra rutina. Para ha¬ 
cerlo con éxito, debemos tener en cuenta 
las siguientes reglas: 

- Ser EXTREMADAMENTE cuidadoso 
con el tiempo que nuestra rutina consuma, 
o, de lo contrario, el efecto de scroll sufrirá 
las consecuencias, en forma de todo tipo 
de perturbaciones. 

— Recordar que estamos dentro de una 
IRQ y que, por tanto, nuestra rutina debe 
terminar correctamente: o bien saltando a 
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la rutina del sistema ($EA31), lo cual es re¬ 
comendable si nuestro programa no lee el 
teclado por su cuenta, o bien desapilando 
los registros y efectuando un RTI (recurre a 
nuestra sección de CODIGO MAQUINA, 
donde encontrarás más información sobre 
este tema). 

— SIEMPRE, servir a la rutina del sistema, 
salvo que vuestro programa lea el teclado 
directamente de-la CIA o a través del Ker- 
nal. Si no lo hace, es necesario que sea la 
rutina del sistema la que se encargue de 
ello. 

Finalmente, el programa se creará, dán¬ 
donos las direcciones inicial y final del mis¬ 
mo. Tras esto, tendremos la elección de vol¬ 
car el código a disco o cinta (directamente 
de memoria), o bien de crear líneas DATA 
para incluir el programa dentro de otros 
programas BASIC. 

La rutina comienza siempre en la direc¬ 
ción 49152. Para poder utilizarla, debemos 
ejecutar SYS 49152. 

Pisa el acelerador... 


Aparentemente, lo único que ocurre en¬ 
tonces es que la pantalla se «estrecha», pa¬ 
sando a tener 38 columnas en lugar de los 
cuarenta habituales. Pero eso es porque 
aún no hemos pisado el acelerador... 

En la dirección 49155 tenemos el pedal 
correspondiente. Esta posición contiene la 
velocidad a la que el scroll debe ejecutarse, 
cuyo valor debe estar comprendido entre 0 
y 127, siendo 0 el de detención. 

El bit más significativo de esta dirección 
controla el sentido del movimiento; es decir, 
si la velocidad es i, 128+¡ es la misma velo¬ 
cidad en sentido opuesto. Fácil de utilizar, 
¿verdad? 

Y eso es lo único que debemos hacer en 
nuestro programa: preocuparnos de esta¬ 
blecer la velocidad. Nuestra aplicación se¬ 
guirá funcionando como si nada, mientras 
la rutina de scroll se ejecuta «en el fondo». 

Desde ahora, la programación de scrolls 
de calidad profesional está más cerca, mu¬ 
cho más cerca... A sólo un listado de distan¬ 
cia. 


LISTADO 


10 

REM 




-201- 

90 POKE532B0,.:P0KE532B1,.:GOSUB1S90 

-099- 

20 

REM 

* 


* 

-218- 

100 

DEF FNHICX5”INTC X/256):REH BYTE BAJO 

-185- 

30 

REM 

* 

SCROLL MAKER 

* 

-186- 

110 

DEF FNL0CX)“X-256*FNHICX) :REH BYTE ALTO 

-146- 

40 

REH 

* 

UER 1.10 22-2-1987 

* 

-082- 

120 

F0RI“H9152T0 L t9359: READA : POKEI, A : NEXT 

-005- 

50 

REn 

* 


* 

-221- 

130 

A$-”CHOMK13 DCHKGRNKRONJ SCROLL MAKER 

CROF}” 

60 

REM 

* 


* 

-222- 



-135- 

70 

REM 

* 

CC) TU MICRO COMMODORE 

* 

-213- 

140 

PRINT”CCLRJ”;:GOSUB1030:REM LEER LI.LS 

-184- 

60 

REM 




-208- 

150 

IFABSCLS-LI)>20THEN140 

-049- 
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160 PRINT”CCLR} ”A$”CH0M}{3 ABJK3 DCH}MODO DE SCROLL 680 NEXT 

C 1“MAPA, 2“BL)CLE) ” ; : INPUT MO -237- 690 POKEMI,232:POKEMI+1,224:POKEMI+2,39:POKEMI+3,208 

170 IFMÜ< 10RriG>2THEN160 -195- MI-MI+4 

180 IP-0:IFMO-lTHENINPUT”CHOM}C6 ABJ}C3 DCH}DIRECCION 700 REM CALCULO DEL SALTO PARA EL BUCLE 
riu MFMnRT A DEL MAPA" • IP —218— 710 IF255 - CMI — JM)> 128THEN740 

190 IFM0-1THENIFIP<2550RIP>65535THEN180 -202- 720 POKEMI-1,240:POKEMI,3:POKEMI+1,76:POKEMI+2,FNLOCJ 

200 PRI NT”CCLR}"AS”CHOM}C4 ABJ1DESEAS USAR RUTINAS SI M):POKEMI+3,FNHICJM) 

NCR0NI2ADAS CS/N)?”:DR-0 
210 GETDS: IFDS- ,, N”THEN250 


-127- 

-214- 

-094- 


PRTNT”CCLR}”A$:PRINT”CHOM}C4 ABJKRON1CS ESPDESPE 770 IFDRTHENPOKES1,FNLOCDR):POKES1+1,FNHICDR) 


220 IFD$<>”S”THEN210 

230 PRINT”C4 ABJ}C4 ESPDDIRECCION DE TU RUTINA 
TDR 

240 IFDR<2550RDR> 65535THEN230 
250 

RAC3 .DC2 ESP3CREANDO EL PROGRAMAC 5 ESP:” 

260 Ll-49183:REM POS DE LINEA SUP 
270 L2-49255:REM OTRA POS DE LINEA SUP 
280 L3-49217:REM POS DE LINEA INF 
290 MD-4935B:REM INICIO RUTINA SCR DCHA 
300 MI-49359:REM IDEM SCR I20DA 
310 SI-50+B*LI:REM SCAN INFERIOR 
320 SS-58+8*LS:REM SCAN SUPERIOR 
330 Sl-49292:S2-49356:REM PUNTOS DE SALTO 
340 POKEL1,SI:P0KEL2,SI:P0KEL3,SS 
350 REM GENERAR RUTINA MOU DERECHA 
360 PRINT”C2 ABJ}# SCROLL DERECHA” 

370 PO-1024+39:ONMOGOSUB910,520:REM GENERAR 
380 POKEMD , 162 : POKEMD+1,38 : MD-MD+2 : JM-MD 
390 FORL-1024+40*LITO1024-*-40*LSSTEP40 


-037- 

-033- 730 MI-MI+4:GOTO750 -145- 
-193-740 POKEMI,255-CMI-JM):MI~MI+1 -031- 
-126- 750 PO-1024+39:MD“MI:SE-2:QNMOGOSUB940,570:MI-MD:MD“I 
; : INPU :REM RECUPERA LIN -180- 
-218- 760 POKEMI,96:P0KES2,FNLOCMD+1):P0KES2+1,FNHICMD+1) 


-244- 


-125- 


- 228 - 


-136- 

-245- 780 PRINT”CABJ}C11 ESP:PROGRAMA GENERADOCABJ}”:PRINT” 
-077- C12 ESP:#INICIO - 49152” -187- 
-220- 790 PRINT” C 12 ESP:#FINALC2 ESP:-”MI -177- 
-186- 800 IFDRTHENPRINT”CABJ}C8 ESPDRUTINA DE USUARIO EN ”D 


-146- R 


-027- 


-245- 810 PRINT”CABJ}C11 ESPDPULSAC2 ESP:UNAC2 ESP1TECLA” 
-045- 7 ~ 

-251- 820 P0KE19B, . :UIAIT19B, 1 -0B3- 

-Í48- 830 PRINT”CCLR}”A$”CHOM}C3 ABJ}C14 ESP1ELIGE TU OPCIO 

-209- N: -253- 

-202- 840 PRINT”C2 ABJ}C10 ESPD1- UOLCADO DE MEMORIA 
-134- -038- 

-1.34- 850 PRINT”CABJ}C10 ESPIE- GENERAR LINEAS DATA 

-163’ 


-086- 


400 POKEMD,189:POKEMD+1,FNLOCL):POKEMD+2,FNHICL):MD-M B60 PRINT”C2 ABJ}C 16 ESPDPULSA CRON}lCROF} O 


D + 3 -204- OF}”:P0KE198 

410 POKEMD,157:POKEMD+1,FNLOCL+1):POKEMD+2,FNHICL + 1): B70 GETAS:IFAS 
MD-MD+3 ” 

420 NEXT 

430 POKEMD , 202 : POKEMD+1,16 : MD-MD+2 
440 REM CALCULO DEL SALTO PARA EL BUCLE 
450 IF255-CMD-JM)>12BTHEN4B0 


1”THEN1370 
128- 880 I FAS-”2"THEN1500 
-245- B90 GOTO870 
-022- 900 REM LECTURA DEL MAPA 
-215- 910 RETURN 

-091- 920 REM COLOCAR COLUMNA DESDE EL MAPA 


245 

- 222 - 

-092- 

-153- 

- 001 - 

-154- 

- 102 - 

-0B2- 


460 POKEMD-1 48:POKEMD,3:POKEMD+1,76:POKEMD+2,FNLOCJM 930 REM 1-DCHA,2-IZQDA _ 

) •POKEMD+3 FNHICJM) -227- 940 IN--230*CSE-2)-19B*CSE“l): POKEMD, IN : POKEMD+1 ,254 


):POKEMD+3,FNHI C JM ) 

470 MD-MD+4:GOTO490 

480 POKEMD,255-CMD-JM):MD-MD+1 


031- 

-066- 

-036- 


-137- POKEMD+2,166 

-012- 950 POKEMD+3,254:MD-MD+4:BU-IP 

490 PO-1024 • SE“1: ONMOGOSUB940,570: REM RECUPERA LIN 950 IFSE-1THEN9B0 o 

-144-970 POKEMD-2,165:POKEMD,24:POKEMD+1,105:POKEMD+2,39:P 

500 POKEMD,96:MI-MD+1:GOTO620 -021- OKEMD-K3,170: MD-MD+4 ~faal 

c-i ocm RFNFRAR RUTINA DE SALUAR COL —065— 980 FORL—PG+40*LITCPO+40*LSSTEP40 088 

520 BU-B28:FORL-PO+40*LITOPO+40*LSSTEP40 -254- 990 POKEMD , 189 : POKEMD-*-1, FNLOC BU) : PCKEMD+2 , FNHI CBU) : MD 

530 POKEMD, 173: POKEMD+1,FNLOCL):POKEMD+2,FNHICL):MD-M -MD+3 : BU-BU+256 

D+3 -201- 1000 POKEMD,141:POKEMD+1,FNLOCL):POKEMD+2,FNHICL)^MD- 

540 POKEMD,141:POKEMD+1,FNLOCBU):POKEMD+2,FNHICBU):MD ND+3 
-MD+3: BU-BU-*-1 -092- 


-019- 

-038- 


-237 

1010 NEXT:RETURN -059- 

1020 REM LEER LIMS PANTALLA -209- 

1030 M$=”CRON)CBLU) !\! <RETURN> PARA MARCARCROF)C22 I 

-084- 
-043- 

-101- 1050 PRINT”CCLR} ”A$”CHOM}CB ABJKWHTH4 ESP!AHORA DEB 

- 210 - 

1060 PRINT”C3 ESPDPANTALLA EN LA QUE DESEAS EFECTUARE 

3 ESP}” -116- 

1070 PRINT”C7 ESP3EL SCROLL CMAX 20 LINEAS)C8 ESP: 

-205- 


550 NEXT:RETURN 

560 REM GENERAR RUTINA DE RECUPERAR COL 

570 BU"828: FORL-PO+40+LITOPO+40+LSSTEP40 -003- ZQ}” 

580 POKEMD 173•POKEMD+1,FNLOCBU):POKEMD+2,FNHICBU):MD 1040 L$-”CGRN)C22 ESPK22 IZQ}”:R-0 

-MD+3* BU-BLJ+1 -101- 1050 PRINT”CCLR}”A$”CHOM}CB ABT'W’ljh 

590 POKEMD,141:POKEMD+1,FNLOCL):POKEMD+2,FNHICL):MD"M ES MARCAR EL AREA DE LAC4 ESP! 

1 pgg 4 /ir*/t nn r iliT »»f* ^ POP1PAMTAT f A CKI 

600 NEXT:RETURN -015- 

610 REM GENERAR SCROLL IZODA -071- 

630 PO"1024^1"MD?-MD"MI:ONMOGOSUB910,520:MI“MD:REM GEN 1080 PRINT”CABJ} í3 ESP1PULSA UNA TECLA CUANDO ESTES L 


-123- IST0C3 ESP}”; ~ 001 

1090 P0KE19B,.:UAIT198,1:POKE532B0,6:PRINT”CCLR}”M$; 

-154- 
-042- 


ERAR 

640 POKEMI,162:POKEM1+1,0:MI-MI+2:JM-MI -159- 

650 FORL-1024+40*LITO1024+40*LSSTEP40 -162- 

660 POKEMI , 189: POKEMI + 1, FNLOCL + 1) : POKEMI+2, FNHI CL + l) : 1100 GETDS 

MI-MI+3 -165- 1110 IFD$-”CABJ}”ANDR<24THENR-R+1:PRINTLS CABJ} M$; 

670 POKEMI , 157 : POKEM 1 + 1, FNLOCL) : POKEMI+2 , FNHI CL) : MI-M ..m* 

I+3 -233- 1120 IFD$-”CARB}"ANDR>.THENR-R-1:PRINTLS CARB} M$; 


-215 
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-164- 

1130 IFD$-CHR$ C133THENLI-R:BOTO1150 -092- 
1140 GOTÜ1100 _gg5_ 
1150 LS$"”CGRN3 CRON3-> LINEA DE SCROLL <- CR0F3C22 12 
QJ ” -160- 
1150 M$-”CBLU3CRON}-> LINEA DE SCROLL <- CR0F3C22 I2Q 
>” -080- 
1170 PRINTMS; -034- 
1180 GETDS -050- 
1190 IFD$-”CABJ}”ANDR<24THENR-R+1:PRINTLSS”CABJ3”M$; 

-050- 

1200 IFD$“”CARB3"ANDCR>.)ANDCR>LI)THENR“R-1:PRINTL$”C 
ARB3”M$; -061- 
1210 IFD$*CHR$C13)THENLS“R:POKE53280,.:RETURN 

-010- 

1220 GOTO11B0 '-232- 
1230 DATA 76,6,192,0,0,0,120,169,0,141,14,220,169,50, 
141,20 —114— 
1240 DATA 3,169,192,141,21,3,173,17,208,41,127,141,17 
,20B,169,58 -145- 
1250 DATA 141,18,208,169,1,141,26,208,173,22,208,41,2 

47.141.22.208 -231- 
1260 DATA 88,96,120,234,234,173,22,208,41,248,13,5,19 

2.141.22.208 -192- 
1270 DATA 159,98,141,18,208,169,91,141,20,3,169,192,1 
41,21,3,173 -154- 
1280 DATA 25,208,141,25,208,104,168,104,170,104,64,23 
4,234,234,173,22 -123- 
1290 DATA 208,41,248,141,22,208,169,58,141,18,209,169 
,50,141,20,3 -193- 
1300 DATA 169,192,141,21,3,173,25,208,141,25,208,173, 
3,192,41,127 -182- 
1310 DATA 24,109,4,192,141,4,192,201,50,175,3,76,49,2 
34,56,233 -040- 
1320 DATA 50,141,4,192,173,3,192,41,12B,240,6,32,187, 
192,76,164 -094- 
1330 DATA 192,32,170,192,173,4,192,76,135,192,23B,5,1 
92,173,5,192 -209- 
1340 DATA 41,7,141,5,192,240,1,96,76,206,192,206,5,19 
2,173,5 -201- 
1350 DATA 192,41,7,141,5,192,201,7,240,1,96,76,207,19 
2,96,96 -214- 
1360 REM VOLCAR nEMGRIA -223- 
1370 A-780:X«781:Y«782 -232- 
1380 PRINT”CCLR3”AS”CHQM}C5 ABJ3C11 ESP3CRON3DCROF3IS 
CO O CRON3CCROF3INTA”;:INPUTDES -043- 
1390 IFDE$<>”D”ANDDE$<>”C”THEN1380 -167- 
1400 Hl-FNHIC49152):B1-FNL0C49152):H2-FNHICMI+1):B2-F 
NLOCMI+1) -059- 
1410 DE—CDE$“”C”3-B*CDE$“”D”3 -237- 
1420 INPUT”C2 ABJ3C5 ESP3NOMBRE” ; NOS : L-LENCNOS) : IFL> 1 
6THEN1420 -160- 
1430 FORI-1TOLENCNOS):PÍ3KE679+I,ASCCMIDSCNOS , I , 1)) :NE 
XT -076- 
1440 P0KE251,B1:P0KE252,H1 -246- 
1450 POKEA,1:POKEX,DE:POKEY,255:SYS65466 -251- 
1460 POKEA,L:POKEX,FNLOC680):POKEY,FNHIC680):SYS65469 

-039- 

1470 POKEA,251:POKEX,B2:POKEY,H2:SYS65496 -048- 
1480 PRINT”CCLR}”A$:END -199- 
1490 REM GENERAR DATAS -131- 
1500 L-2000:PR-49152:FI-MI+1 -071- 
1510 PRINT”CCLR}CBLK3 C3 ABJ31500 L-”L+10”:PR-”PR+16”: 

FI■”FI -191- 
1520 PRINTL”DATA -122- 
1530 F0RI-PRT0I+15 -117- 
1540 PRINTMIDS(STR$ C PEEK CI)),2)”,”; -252- 
1550 NEXT _04g_ 


1560 PRINT”CI2Q} M -122- 

1570 IFPR+16<FITHENPRINT”G0T0 1500” -154- 

1580 PR I NT ” CH0M3 CUIHT3 ” : P0KE19B , 9 : FORI "631TO640 : POKEI , 
13:NEXT:END -145- 

1590 PRINT”CCLR>C2 ABJ3CUIHT1C6 ESP3TL) MICRO COMMODORE 
PRESENTAC2 ABJ3” -230- 

1600 PRINT”C3 ESP3CYEL3 !U! !2 *!<U> !U!!2 *!<UI>C2 ESP3 
< A> ¡ 2 *!!I!C2 ESP3 ! L)! ! 2 *!!I!C2 ESP3<R>C6 ESP3<R>C6 E 
SP3”; -220- 

1610 PRINT”C3 ESP3!-!CBLU}!U!!2 *!<U>CYEL3!-!CBLU>!UJ 
!2 *!<UJ> CYEL3 !-! CBLU3<A> ¡* ! CYEL3 !-! CBLU} ! I ! CYEL} ! - ! 
CBLU} ! U ! !*¡ CYEL},'-! CBLU}! I ! CYEL} ! - ! CBLU}<R> C5 ESP3CY 
EL}!-!CBLU}<R> C5 ESP3”; -049- 

1620 PRINT”C3 ESP3CYEL}!-!CBLU}!-!C3 ESP3CYEL}!-!CBLU 
}! !C4 ESP3CYEL}!-!CBLU}!-! CYEL}!-!CBLU}!-! CYEL}!-! 

CBLU}!-! CYEL}!-!CBLU}!-! CYEL}!-!CBLU}!-!C5 ESP3CYEL 
}!-!CBLU}! — !C5 ESP3”; -173- 

1630 PRINT”C3 ESP3 CYEL}!J! !2 *!!I! !-!CBLU}!-!C4 ESP3 

CYEL}<Q>!*!<R>!K!CBLU}!-! CYEL}!-!CBLU}!-! CYEL}!-!CB 
LU}!—! CYEL}!-!CBLU}!-!C5 ESP3CYEL}!-!CBLU}!-!C5 ESP3 

-126- 

1640 PRINT”C4 ESP3!J!!*!CYEL}!-!CBLU}!I!CYEL}!-!CBLU} 

• !C4 ESP3CYEL}!-!CBLU}<0>CYEL}!-!CBLU}<R>!K! CYEC}!- 

!CBLU}!—! CYEL}!-!CBLU}!-! CYEL}!-!CBLU}!-!C5 ESP3CYE 
L}!—!CBLU}!-!C5 ESP3”; -051- 

1650 PRINT”C6 ESP3 CYEL}!-!CBLU3!-!CYEL}!-!CBLU}! — ¡C4 
ESP3 CYEL}!-!CBLU}!-!CYEL}<2><S>C2 ESP3CYEL}!-!CBLU}!- 
! CYEL}¡-¡CBLU}!-! CYEL}!-!CBLU}!-!C5 ESP3CYEL}!-!CBL 
U}!-!C5 ESP3”; -050- 

1660 PRINT”C2 ESP3CYEL} <Q>!2 *!!K!CBLU}!-!CYEL}!J!!2 
* ! < U)> C 2 ESP3<E> CBLU} ! - ! CYEL}< E> CBLU}<S> CYEL}¡J!!$ 

*! !K!CBLU}!-!CYEL}<2><E>!2 *!<X>C2 ESP3<Z><E>!2 *!<X> 

C 3 ESP3”; -240- 

1670 PRINT”C4 ESP3 CBLU}<Q> ! 2 *!¡K! !J!!2 *!<U1>C2 ESP3 

<E> C2 ESP3<E> C2 ESP3!J!!2 * i !Ki <Z><E>!2 *!<X>C2 ESP3 
<Z><E>!2 *¡<X>C2 ESP3CABJ3”; . -202- 

16B0 PRINT”C6 ESP3 CYEL}< R> <S><A><R>C2 ESP3!U!!2 *!!I! 
C2 ESP3<R> C2 ESP3<R> C2 ESP3!U!!2 *!<UJ>C2 ESP3<A>!2 *! 
¡i:C6 ESP3”; -158- 

1690 PRINT”C6 ESP3! — !<Z><X>!-!CBLU}<R> CYEL}!-!CBLU}! 
U! !*!CYEL}!-!CBLU}!I! CYEL}!-!CBLU}<R> CYEL3<A><X> CBLU 
}<R> CYEL}!-!CBLU}!U!!2 *!<U> CYEL}!-!CBLU}<A>!*!CYEL 
}!-!CBLU}!I!C5 ESP3”; -154- 

1700 PRINT”C6 ESP3CYEL}!-!CBLU}!-!<Z>CYEL}!-!CBLU}!-! 

CYEL}!-!CBLU}!-! CYEL}!-!CBLU}!-! CYEL}!-!<A><X>CBLU 
}<A><X> CYEL}!-!CBLU}!-!C4 ESP3CYEL}!-!CBLU}!-! CYEL} 

!-!CBLU}! — !C5 ESP3”; -214- 

1710 PRINT”C6 ESP3CYEL}!-!CBLU}!-! CYEL}!-!CBLU}!-! C 
YEL}<Q> ! 2 * ¡ <UJ> CBLU} ! - ! CYEL}<0> <U> CBLU}< A><X> C2 ESP3 
CYEL}<0> ! * ! < Ul> C 3 ESP3<Q> ! * ! < R> ! K ! CBLU 3 ! — ! C 5 ESP3”; 

-227- 

1720 PRINT”C6 ESP3 CYEL3!-!CBLU3!-¡ CYEL3!-!CBLU3!-! C 
YEL} ! — ! CBLU3<Q> ¡ * ! CYEL} ! - ! CBLU3<üJ> CYEL3 ! - ! < Z> <S> C 3 E 
SP3CYEL3!-!CBLU3<0> !*!<U>C2 ESP3 CYEL3¡-!CBLU3<Q> CYEL3 
!-¡CBLU3<R>!K!C5 ESP3”; -128- 

1730 PRINT”C6 ESP3CYEL3 !-! CBLU3 !-! CYEL'3 ! - ! CBLU3 ! - ! C 
YEL3!-!CBLU}!-! CYEL3!-!CBLU3!-! CYEL3!-!CBLU3!-!CYEL 
}<Z> <S> C2 ESP3CYEL3!-!CBLU3!-!C4 ESP3 CYEL3!-!CBLU3!-! 
CYEL3<Z><S>C6 ESP3”; -234- 

1740 PRINT”C6 ESP3<E>CBLU3!-! CYEL3<E> CBLU3!-! CYEL3< 
E> CBLU3!-! CYEL3<E> CBLU}!-! CYEL3<E>CBLU}!-! CYEL3<E> 
CBLU3<S> CYEL3!J! !2 *!<U>C2 ESP3 CYEL3< E> CBLU3!-! CYEL 
}<E> CBLU3<S> C5 ESP3”; -111- 

1750 PRINT”C7 ESP3<E>C2 ESP3<E>C2 ESP3<E>C2 ESP3<E>C2 
ESP3<E>C2 ESP3<E>C2 ESP3!J!!2 *!<U>C2 ESP3<E>C2 ESP3 
< E> C5 ESP3CABJ3”; -015- 

1760 PRINT”C7 ESP3CUJHT3C4 ESP3ESPERA, POR FAV0RCCYN3C 
12 ESP3CHOM3”; .-RETURN -070- 
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Colaboremos todos en la confección de 
estos 7 MAGNIFICOS de TU MICRO 
COMMODORE. Envíanos el nombre de tu 
programa favorito, dejando muy claro tu 
nombre y dirección. Todos los meses, sor¬ 


tearemos cinco suscripciones por un año a 
nuestra revísta entre las respuestas recibi¬ 
das. Anímate y escríbenos a: TU MICRO 
COMMODORE. (7 MAGNIFICOS). Apar¬ 
tado de Correos 61.294. 28080 MADRID. 



5. l fie ar Kung Fu 
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Emsamblador para los códigos no reconocidos del 6510 


Ensamblando lo 
in&nsamblable 


En nuestro número 11, y desde las páginas de esta misma sección, trata¬ 

mos el enigmático tema de los códigos no reconocidos. El artículo de este 
mes aporta una imprescindible herramienta de trabajo, acorde con nuestros 

nuevos conocimientos; he aquí un ensamblador capaz de utilizar los códigos 

no reconocidos del 6510. 



eguramente recordemos el 
reto que desde esta misma 
sección se lanzaba hace tan 
sólo dos meses: «Como ejer¬ 
cicio queda hacer un ensam¬ 


blador que reconozca estos códigos, y ave¬ 
riguar si nuestro ordenador los contempla». 

Obviamente, en lo referente a compro¬ 
bar si tu microprocesador implemento los 
códigos no reconocidos, no podemos ayu¬ 


darte. No obstante, lo que sí podemos ha¬ 
cer es dar solución al primero de los ejerci¬ 
cios propuestos: diseñar un ensamblador 
completo, que sea capaz de operar con los 
códigos especiales. 

Aquéllos que por su parte, tomando en 
cuenta nuestra proposición, se hayan pues¬ 
to ya manos a la obra en la confección del 
programa, habrán tenido en dos meses el 
tiempo suficiente para finalizarlo o tal vez lo 
estén acabando. 

En todo caso, si lo desean, nuestro pro¬ 
grama podrá servirles de ayuda en la reso- 
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lución de algunos de los problemas que se 
les hayan planteado. Tal vez incluso prefie¬ 
ran acabar el proyecto por sí mismos (cues¬ 
tión de amor propio) y comprobar posterior¬ 
mente su eficacia con el nuestro. 

El TU MICRO ENSAMBLADOR, aunque 
como cualquier otro, siempre mejorable, 
cumple a la perfección las condiciones bá¬ 
sicas exigidas, y su manejo se hace tan sim¬ 
ple, gracias a los menús y textos de ayuda 
que contiene, que es innecesario dedicarle 


más espacio. 

Así pues, vayamos directamente con el 
listado, no sin antes aprovechar la ocasión 
para subsanar un pequeño error apareci¬ 
do en el programa desensamblador, publi- 
dado en el número 11, al que anteriormen¬ 
te hacíamos referencia, y que complemen¬ 
ta las herramientas necesarias para tratar 
los códigos no reconocidos. 

El error no se encuentra propiamente en 
el programa, sino mas bien en el listado. Los 


usuarios de 128 encontrarán una línea, la 
190, dedicada exclusivamente a ellos (los 
de C-64 la deben borrar). No obstante, el 
programa fue listado en modo 64, motivo 
por el cual dicha instrucción, que contiene 
una palabra clave del 128 (BANK), ha su¬ 
frido una errónea interpretación del Token 
correspondiente. Así pues, los usuarios del 
C-128 deberán sustituir la línea afectada, 
por la siguiente: 

19Ó BANK NB 


LISTADO 

10 P0KE54274,11:P0KE54275,1:P0KE54276,0:P0KE54277,0:P 

430 

IFUAL C K$)-7THENST0P 

-210- 

| 0KE5427B,200 

-221- 

440 

GOTO200 

-139- 

20 P0KE54272,152:P0KE54273,24:P0KE54296,15 

-126- 

450 

PRINT”CCLR3C2 ABJ3INTRODUCIR EN DECIMAL 

0 HEXADEC 

30 POKE53200,0:P0KE53281,0:PRINT”CCLR1”;CHRSC5) 

IMAL” 

-160- 


-056- 

460 

PRINT”13 ABJ3SI QUIERE HEXADECIMAL COLOCAR S DELA 

40 Gl-256 

-214- 

NTE 

DEL NUMERO” 

-233- 

50 Din CSCGl) , USsCGl ) 

.-030- 

470 

INPUT”14 ABJ3DIRECCI0N INICIAL”:HS 

-035- 

60 PRINTTABC8);”ENSAMBLADOR-DESENSAMBLADOR” 

-075- 

4B0 

IF LEFTSCHS,i)=”5”THENGOSUB170:AD*D:GOTO500 

70 PRINT:PRINTTABC20);”DE”:PRINT:PRINTTABC10) ; 

"CODIGO 



-000- 

S NO RECONOCIDOS” 

-032- 

490 

AD-UALCHS) 

-031- 

00 PRINT:PRINTTABC14);”6502/6510/0502” 

-174- 

500 

IF AD>655350RAD<0THEN450 

-137- 

90 PRINT:PRINT:PRINT 

-164- 

510 

PRINTCHRSC147) 

-049- 

100 PRINTTABC7);”F.A. ACERO CC) 1907” 

-054- 

520 

I“0:PRINTCHRSC5)”CCLR3 DIRECCI0N12 ESP3C0DIG013 E 

110 PRINT:PRINTTABC7);”TU MICRO COMMODORE” 

-236- 

SP3C0DIG0” 

-076- 

120 PRINT:PRINTTABCB);”!7 ABJ1LEYEND0 DATAS, UN MOMEN 

530 

PRINT” DEC”;CHRSC30)”12 ESP3HEX!2 ESP3”: 

;CHRS C 5)” 

ru” 

-040- 

MAQUINA”:CHRSC159)”12 ESP3M0NITOR”:PRINT 

-223- 

130 FORE-0TOG1-1 

-190- 

540 

PRINTCHRSC5)” <30 U> ” 

-129- 

140 READCSCE),U*CE) 

-010- 

550 

IFI“16THEN900 

-006- 

150 NEXT 

-245- 

560 

I-I + l 

-230- 

160 GOTO290 

-139- 

570 

IFAD> 65535THENAD“0 

-055- 

170 D-0:LI-LENCH$)-1:H$-RIGHT$CH$,LI):XP-LI-1 


500 

IB-PEEKCAD) 

-128- 


-132- 

590 

IFCSCIB)<>”N/F”THEN650 

-219- 

100 F0RGL-1T0LI:DM$=MID$CH$,GL,1) 

-220- 

600 

DC-IB:GOSUB240:B1S-HXS 

-039- 

190 IFDM$<«”9”THENDM$-STR$CUALCMID$CH$,GL,1))) 


610 

DC-AD:GOSUB240:ADS-HXS 

-052- 


-142- 

620 

PRINTCHRS C 5)AD:CHR$ C 30)TAB(6)AD$:CHRS C5)TABC12)B1 

200 IFDM$-> ”A”THENDM$-STR$CASCCDMS)-55) 

-249- 

$; 


-103- 

210 D-D+CUALCDMS))*16~XP:XP-XP-1 

-153- 

630 

PRINT” ! 11 C! CR0N3SIN SENTID01R0F3 ” 

-078- 

220 NEXTGL 

-134- 

640 

AD“AD+1:GOTO550 

-106- 

230 RETURN 

-149- 

650 

0NU5¿C IB )GOTO660,720,040 

-016- 

240 Ml-1:HES"”0123456709ABCDEF”:DE-DC 

-055- 

660 

DC-IB:GOSUB240:B1S-HXS 

-045- 

250 IFDC>255THENMl-3 

-196- 

670 

DC-AD:GOSUB240:ADS-HXS 

-058- 

260 HXS-””:FORM-M1TO0STEP-1:N*-DE/C 16 “ M ) :DE-DE 

-N5;*16- 

660 

GOSUB1060 

-005- 

M: HXS-HXS+MIDSCHES , N*+l, 1) 

-127- 

690 

PRINTCHR$C5)AD:CHRSC30)TABC6)ADS ; CHR$C5)TABC12)B1 

270 NEXT 

-240- 

$;CHRSC159)TABC21)PR$ 

-176- 

200 RETURN 

-154- 

700 

AD-AD+1 

-090- 

290 PRINT”CCLR}”:PRINTTABC8 )”M E N U!2 ESPDP R 

I N C 

710 

GOTO970 

-145- 

I P A L” 

-001- 

720 

IFAD>-65535THEN900 

-032- 

300 PRINT 

-064- 

730 

DC-IB:GOSUB240 

-089- 

310 PRINTTABC3)"LISTADO DE NEMOTECNICOSC6 .31” 

:PRINT 

740 

B1S-HXS 

-083- 


-076- 

750 

DC-PEEKCAD+1):P-DC:GOSUB240 

-117- 

320 PRINTTABC3)"ENTRADA EN ENSAMBLADOR!7 .32”:: 

PRINT 

760 

B2S-HXS 

-086- 


-022- 

770 

DC-AD:GOSUB240:ADS-HXS:GOSUB1060 

-100- 

330 PRINTTABC3)"ENTRADA EN HEXADECIMAL!7 .33”:! 

PRINT 

700 

PRINTCHRSC5); 

-014- 


-005- 

790 

PRINTAD:CHRSC30)TABC6)AD$:CHR$C5)TABC12)B1$;” ”:B 

340 PRINTTABC3)"ENTRADA EN DECIMAL!11 .34”:PRINT 

2$;CHRSC159)TABC21)PR$¡ 

-215- 


-153- 

600 

P$-”$”+B2$ 

-140- 

350 PRINTTABC3)"LISTADO PROGRAMA!13 .35”:PRINT 


010 

PRINTTABC27)P$;TABC32)P 

-099- 


-191- 

020 

AD-AD+2 

-094- 

360 PRINTTABC3)”EJECUCION!20 .36”:PRINT 

-015- 

030 

GOTQ970 

-14B- 

370 PRINTTABC3)”GRABACION120 .37”:PRINT 

-002- 

040 

IFAD>-65535THEN900 

-035- 

300 PRINTTABC3)"LECTURA!22 .30”:PRINT 

-234- 

050 

DC-IB:GOSUB240 

-092- 

390 PRINTCHR$C5)TABC5)"PULSAR OPCION” 

-040- 

060 

B1S-HXS 

-086- 

400 GETKS:IFK$-””THEN400 

-127- 

070 

DC-PEEKCAD+1):GOSUB240 

-042- 

410 IFUALCK$)=0ORUALCK$)>9THEN400 

-210- 

660 

B2S-HXS 

-009- 

420 ONUAL C KS)GOSUB2060,1090,2400,2700,450,3360 

,2040,3 

090 

DC-PEEKCAD+2):GOSUB240 

-045- 

230 

-190- 

900 

B3S-HXS 

-003- 
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910 0P"PEEKCAD+1)+PEEKCAD+2)*256 -055- 

920 DC-AD:GOSUB240:ADS-HXS:GÜSUB1060 -185- 

930 PRINTCHRS C5)AD¡CHRSC30)TABC 6)ADS¡CHRSC 5)TABC12 ) B1 
$;” ”;B2$; ” " ; -124- 

940 0P$-”$"+B3$+B2$ -172- 

950 PRINTB3S¡CHRSC159)TABC21)PR$;TABC27)0P$;TABC32)0P 

-087- 

960 AD-AD+3 -100- 

970 GOTO550 -147- 

980 PRINTCHRSC5)” <38 U>” -137- 

990 PRINT"PULSAR ”;”CRON} RETURN CROF}”;CHRSC5)” PARA 
CONTINUAR LISTADO” -026- 

1000 PRINT” U OTRA COSA PARA MENU PRINCIPAL” 

-030- 
-199- 
-207- 
-145- 
-080- 
-186- 

-090- 

1070 HY-LENCC$CIB))-1:PR$-CHR$C1BD+RIGHT$CCSCIB),HY) + 
CHRSC146) -213- 

1080 RETURN -201- 

1090 PRINT”CCLR}”:PRINT:PRINT”CRON}ENTRADA DE PROGRAM 
A EN ENSAMBLADORCROF}”:PRINT -167- 

1100 PRINT”INTRODUCIR LAS LINEAS DE LA FORMA SIGUIENT 
E:” -132- 

1110 PRINT "CODIGO UN ESPACIO Y OPERANDO”:PRINT 


1010 GETAS:IFAS"””THEN1010 
1020 IFA$-CHR$C19)THENI-0:RETURN 
1030 I FAS-CHRSC13)THEN520 
1040 I“0:PRINTCHRSC147 ) 

1050 GOTO290 

1060 IFLEFTSCCSCIB),1)<>"U"THENPRS-CSCIB):RETURN 


-040- 

1120 PRINT”LA ENTRADA DEL OPERANDO PUEDE SER EN HEX C 
ON $ DELANTE O EN DEC” -146- 

1130 PRINT:PRINT”DIRECCIONAR N BYTES ATRAS CON 256-N” 

-136- 

1140 PRINT”DIRECCIONAMIENTO INMEDIATO CON #”:PRINT 

-024- 

1150 PRINT”ACABAR EL PROGRAMA CON END” -115- 

1160 PRINT:PRINT”SI NO HAY SONIDO ERROR EN DATOS” 

-191- 


1170 PRINT:INPUT”DIRECCION INICIAL DEC O HEX”;H$ 

-052- 

11B0 IFLEFTSCH$,1)-”$”THENGOSUB170:AD-D:GOTO1200 


-068- 

1190 AD-UALCHS) -077- 
1200 DR-AD:IFAD>65535ORAD<0THEN1090 -090- 
1210 P0KE781,22:P0KE7B2,0:P0KE7B3,0:SYS65520 

-075- 

1220 P0KE7B1,22:P0KE782,29:SYS59905 -042- 
1230 P0KE54276,0 -121- 
1240 PRINTDR;:INPUTCAS:IFCAS-"END"THEN290:P0KE54296,0 

-025- 

1250 LE-LENCCA$):H$-"":CO$-”” -038- 
1260 FORJ-1TOLE -18B- 
1270 IFMI DSC CAS, J , 1) - ” ”THENCO$-LEFT$CCA$,J-l):HS-RIG 
HTSCCAS,LE-J):GOTO1300 -011- 
12B0 NEXT -042- 
1290 COS-CAS -135- 
1300 FORJ-0TO255 -193- 
1310 IFLEFTSCCSCJ),1)<>”U”THENPR$-C$CJ):GOTO1340 

-247- 

1320 HY-LENCCSCJ))-l -084- 
1330 PRS-RIGHTSCCSCJ),HY} -172- 
1340 IFCO$-PR$THENOP->J: BY-U*C J) : GOTO1370 -234- 
1350 NEXTJ -114- 
1360 GOTO1210 -231- 
1370 P0KE54276,37:ONBYGOTO13B0,1390,1430 -028- 
1380 POKEDR,OP:DR-DR+1:GOTO1210 -178- 
1390 IFLEFTSCH$, 1) -”$"THENGOSUB170:AD-D:GOTO1410 

-074- 

1400 AD-UALCHS) -071- 
1410 IFAD> 2550RAD< 0THEN1210 -089- 
1420 POKEDR,OP:POKEDR-1,AD:DR-DR-2:GOTO1210 -186- 
1430 IFLEFTSCHS,1}-"$”THENGOSUB170:AD-D:GOTO1450 

-073- 

1440 AD-UALCHS) -075- 
1450 IFAD> 655350RAD< 0THEN1210 -201- 
1460 AH-INTC AD/256 j : AL-AD-C I NTCAD/256)*256) -153- 
L470 POKEDR,OP:POKEDR-1,AL:POKEDR-2,AH:DR-DR-3:G0T012 
L0 -217- 


1480 DATABRK,1,ORAIX,2,N/F,0,N/F,0 -230- 
1490 DATAN/F,0,ORAZ,2,ASLZ,2,USLORZ,2,PHP,1 -157- 
1500 DATAORA#,2,ASLA,1,N/F,0,N/F,0 -163- 
1510 DATAORA, 3, ASL, 3, UJSLOR , 3 , BPL , 2, ORA IY, 2 -069- 
1520 DATAN/F,0,N/F,0,N/F,0,ORAZX,2 -213- 
1530 DATAASLZX , 2 , UISLORZX , 2, CLC , 1, ORAY , 3 -231- 
1540 DATAN/F,0,N/F,0,N/F,0,ORAX,3 -126- 
1550 DATAASLX,3,USLORX,3,JSR,3,ANDIX,2,N/F,0 

-217- 

1560 DATAN/F,0,BITZ,2,ANDZ,2,ROLZ,2 -112- 
1570 DATAUIRLANZ , 2, PLP , 1, AND# , 2 , ROLA, 1, N/F , 0 -058- 
1580 DATABIT, 3, AND, 3, ROL , 3, UJRLAN, 3 , BMI ,2 -141- 
1590 DATAANDIY,2,N/F,0,N/F,0,N/F,0 -189- 
1600 DATAANDZX , 2 , ROLZX , 2 , UIRLANZX , 2 , SEC , 1 -045- 
1610 DATAANDY,3,N/F,0,N/F,0,N/F,0,ANDX,3 -036- 
1620 DATAROLX , 3, UJRLANX , 3, RT 1,1, EORIX , 2 -151- 
1630 DATAN/F,0,N/F,0,N/F,0,EORZ,2,LSRZ,2 -088- 
1640 DATAUSREOZ,2,PHA,1,EOR#,2,LSRA,1 -253- 
1650 DATAN/F,0,JMP,3,EOR,3,LSR,3,USREO,3 -159- 
1660 DATABUC,2,EORIY,2,N/F,0,N/F,0 -232- 
1670 DATAN/F, 0, EORZX, 2, LSRZX, 2, UISREOZX, 2 -066- 
1680 DATACL1,1,EORY,3,N/F,0,N/F,0 -158- 
1690 DATAN/F, 0, EORX, 3, LSRX, 3, tUSREOX, 3, RTS, 1 -187- 
1700 DATAADCIX,2,N/F,0,N/F,0,N/F,0 -170- 
1710 DATAADCZ,2,RORZ,2,URRADZ, 2,PLA,1,ADC#,2 

-153- 

1720 DATARORA,1,N/F,0,JMPI,3,ADC,3 -238- 
1730 DATAROR, 3, üJRRAD, 3, BUS, 2, ADCIY, 2, N/F , 0 -022- 
1740 DATAN/F,0,N/F,0,ADCZX,2,RORZX,2 -163- 
1750 DATAUJRRADZX, 2, SE I , 1, ADCY , 3, N/F , 0 , N/F , 0 -067- 
1760 DATAN/F,0,ADCX,3,RORX,3,URRADX,3 -011- 
1770 DATAN/F,0,STAIX,2,N/F,0,N/F,0,STYZ,2 -181- 
1780 DATASTAZ , 2 , STXZ , 2 , UIANDZX , 2 , DEY , 1 -094- 
1790 DATAN/F,0,TXA,1,N/F,0,STY,3,STA.3 -233- 
1800 DATASTX,3,UANDX,3,BCC,2,STAIY,2 -212- 
1810 DATAN/F,0,N/F,0,STYZX,2,STAZX,2,STXZY,2 

-010- 

1820 DATAUANDXZY,2,TYA,1,STAY,3,TXS,1 -099- 
1830 DATAN/F , 0 , N/F , 0, STAX, 3, UTSTX , 3, UJTSTA, 3 -142- 
1840 DATALDY#,2,LDAIX,2,LDX#,2,N/F,0 -077- 
1850 DATALDYZ, 2, LDAZ, 2, LDXZ, 2, UILDAXZ, 2 -142- 
1860 DATATAY,1,LDA#,2,TAX,1,N/F,0 -147- 
1870 DATALDY, 3, LDA , 3, LDX , 3, UILDAX, 3, BCS, 2 -142- 
1BB0 DATALDAIY,2,N/F,0,N/F,0,LDYZX,2 -151- 
1890 DATALDAZX , 2, LDXZY , 2 , UJLDAXZY, 2 , CLU, 1 -061- 
1900 DATALDAY,3,TSX,1,N/F,0,LDYX,3 -044- 
1910 DATALDAX , 3, LDXY , 3 , UJLDAXY , 3, CPY# , 2 , CMPIX , 2 

-097- 

1920-DATAN/F,0,N/F,0,CPYZ,2,CMPZ,2 -004- 
1930 DATADECZ,2,UDCMPZ,2,INY,1,CMP#,2,DEX,1 -090- 
1940 DATAN/F,0,CPY,3,CMP,3,DEC,3,UDCMP,3 -102- 
1950 DATABNE,2,CMPIY,2,N/F,0,N/F,0 -222- 
1960 DATAN/F, 0, CMPZX , 2 , DECZX , 2, UJDCMPZX , 2 -004- 
1970 DATACLD,1,CMPY,3,N/F,0,N/F,0,N/F,0 -224- 
1980 DATACMPX , 3, DECX , 3 , UiDCMPX , 3 , CPX# , 2 -072- 
1990 DATASBCIX,2,N/F,0,N/F,0,CPXZ,2,SBCZ,2 -005- 
2000 DATAINCZ , 2, UJISBCZ , 2 , INX , 1, SBC# , 2 -231- 
2010 DATANOP,1,N/F,0,CPX,3,SBC,3,INC,3 -208- 
2020 DATAUIISBC,3,BEQ,2,SBCIY,2,N/F,0 -134- 
2030 DATAN/F , 0 , N/F , 0 , SBCZX , 2 , INCZX , 2 , UJISBCZX , 2 

-071- 

2040 DATASED,1,SBCY,3,N/F,0,N/F,0 -139- 
2050 DATAN/F , 0 , SBCX , 3 , INCX , 3 , UJISBCX, 3 -243- 
2060 PRINT”CCLR}”:W-0:GOSUB2220 -202- 
2070 FORI-0TO255:DC“I:GOSUB240 -092- 
2080 U-U+l:PRINTCHRSC5)I;CHRSC30)TABC5)HXS; -020- 
2090 IFCSCI)"”N/F”THENPRINTCHRSC156)TABC9)”NO IMPLEME 
NTADO”CHR$ C 30):GOTO2130 -056- 
2100 IFLEFTSCCSCI),1)<>”U”THENPR$-C$CI):GOTO2120 

-240- 

2110 HY-LENCCSCI))-l:PRS-CHRSC18)+RIGHT$CC$CI),HY)+CH 
RSC146) -077- 
2120 PRINTCHRS C159)TAB C 9)PRSCHRS C 5) -017- 
2130 IFU-15THENU-0:GOSUB2160 -229- 
2140 IFI-255THENGOSUB2160:GOTO2060 -075- 
2150 NEXTI:GOSUB2160:GOTO2B0 -000- 
2160 PRINT:PRINTCHRSC28)” !3B D!”CHR$C5) -252- 
2170 PRINT"PULSAR ”;CHRSC156)"RETURN ”;CHRSC5D"PARA C 
ONTINUR LISTADO” -011- 
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ALTO NIVEL (¡§jj 


£100 

PRINT”U OTRA COSA PARA MENU” 

-070- 

£030 GOTO0010 

-£41- 

£190 

GETAS:I FAS"””THEN£190 

-£19- 

£040 PRINT”CCLR}SALUA MEMORIA A PERIFERICO” 

-09£- 

££00 

IFASOCHRSC13DTHEN PRINT"CCLR}” : GDTD£90 


£050 PRINT"DIRECCION INICIAL Y FINAL” 

-100- 



-£01- 

£060 PRINT”EN DEC 0 HEX CON $ DELANTE” 

-0£1- 

££10 

PRINT”CCLR)”:GOSUB£££0:RETURN 

-££7- 

£070 INPUT"DIRECCION INICIAL”;H$ 

—0£1 — 

£££0 

PRINTCHRSC53" DEC”:CHRSC305TftBC5)”HEX”¡CHRSCSÍTA 

£000 IFLEFTSCHS,1)-”$”THENGOSUB170:I-D:GOTO£900 


BC9)' 

NEflOTECNICO A USAR” 

-£47- 


-0£4- 

££30 

PRINT:RETURN 

-14£- 

£090 I-UALCHS) 

-0£5- 

££40 

IFBYS-”END”THEN£90 

-000- 

£900 IFI>65535ORI<0THENPRINT”CCLR}”:GOTO£070 


££50 

RETURN 

-£01 - 


-054- 

££50 

POKE701,££:POKE70£,0:POKE703,0:SYS655£0 


£910 INPUT"DIRECCION FINAL”;H$ 

-1£9- 



-001- 

£9£0 IFLEFTSCHS,1)-"$”THENGOSUB170:FI-D:GOTO£940 

££70 

POKE701,££:POKE70£,£9:SYS59905 

-040- 


-093- 

££00 

BY$-”00”:INPUT”INTRODUCE BYTE HEX”;BYS:GOSUB££40 

£930 FI-UALCHS) 

-090- 



-0£0- 

£940 IFFI>65535ORFI<0THENPRINT"CCLR}”:GOTO£910 


££90 

GOSUB£3£0:GOSUB170:BY-D 

-££0- 


-193- 

£300 

IFBY> £550RBY< 0THENGOTO££60 

-195- 

£950 INPUT"PERIFERICO CRON}DCROF}ISCO 0 CRON}CCROF}AS 

£310 

RETURN 

-190- 

SETTE”;P$ 

-03£- 

£3£0 

H$-” 5 "+BYS:RETURN 

-£5£- 

£960 IF P$<>”D”ANDP$<>”C”THENPRINTP$:GOTO£950 


£330 

DC-AD:GOSUB£40 

-1£9- 


-£09- 

£340 

RETURN 

-£01 - 

£970 INPUT”NOMBRE MAX. 16 CARACTERESN$ 

-£30- 

£350 

POKE701,7:POKE70£,0:P0KE7B3,0:SYS655£0 

-036- 

£900 L-LENCNS):IFL>16THENNS-LEFTSCN$,16):L-16 


£350 

POKE701,7:POKE70£,39:SYS59905:HXS-”$”+HX$: 

BYS- ”$ 


-133- 

" + BYS 

-030- 

£990 N$-”00:”+N$:L-LENCN$) 

-147- 

£370 

PRINTAD;TABC0)HX$;TABC16)BY;TABC£1)BY$ 

-071- 

3000 INPUT”FICHERO CRON}SCROF}ECUENCIAL 0 CRON1PCROF} 

£3B0 

RETURN 

-£05- 

ROGRAMA”;F$ 

-136- 

£300 

POKEAD.BY:RETURN 

-131- 

3010 IFFSO”S”ANDF$<>”P"THENPRINT"CCLR)”:GOTO3000 

£400 

PRINT”CCLR)ENTRADA HEXADECinAL” 

-1£6- 


—00£— 

£410 

PRINT”NUMEROS ENTRE $00 Y SFF” 

-100- 

30£0 DC-I:GOSUB£40:I$-”$”+HX$ 

-1£5- 

£4£0 

PRINT”ACABAR CON END” 

-074- 

3030 DC-FI:GOSUB£40:FIS-”$"+HXS 

-010- 

£430 

PRINT:INPUT"DIRECCION INICIAL”;H$ 

-£1£- 

3040 IFFS-”P”THENGOTO3170 

-££0- 

£440 

IF LEFTSCHS,1)-”$"THENGOSUB170:AD-D:GOTO£460 

3050 P-l: IFPS-”D"THENP-0 : NS-NS+” , S , lü” 

-104- 



-109- 

3060 OPEN1,P,1,N$ 

-195- 

£450 

AD-UALCHS) 

-077- 

3070 PRINT#1,I 

-064- 

£460 

IFAD> 655350RAD< 0THEN£400 

-£05- 

3000 PRINT#1,FI 

-135- 

£470 

PRINT”CCLR)” 

-001- 

3090 FORN-ITOFI 

-£17- 

£400 

PRINT” DIRECCI0NC6 ESP1BYTES” 

-10£- 

3100 PRINT#1,PEEKCN) 

-101- 

£490 

PRINT” DECC4 ESPHHEXC5 ESPDDECC£ ESPUHEX” 


3110 NEXTN 

-114- 



-16£- 

31£0 PRINT:PRINT”CCLR)SALUADO DESDE”I;TABC1£)1$ 


£500 

PRINT” <£3 T> 

-091- 


—0£0— 

£510 

GOSUB££60:GOSUB£330:GOSUB£350:GOSUB£390 


3130 PRINT"HASTA”;FI;TABC0)FI$;TABC17)N$ 

-1£6- 



-19£- 

3140 PRINT”EN FORMA SECUENCIAL” 

-££1- 

£5£0 

AD-AD+1 

-140- 

3150 CLOSE1 

-144- 

£530 

GOTO£510 

-£35- 

3160 GOTO£90 

-190- 

£540 

IFBYS""END”THEN£90 

-091- 

3170 P0KE194,INTCI/£56):P0KE193,I-INTCI/£56)*£56 

£550 

RETURN 

-£04- 


-£45- 

£560 

POKE701,££:POKE70£,0:POKE703,0:SYS655£0 


3160 FI-FI+1:P0KE175,INTCFI/B56):P0KE174,FI-INTCFI/B5 



-004- 

6)*£56 

-103- 

£570 

POKE701,££:POKE700,£9:SYS59905 

-051- 

3190 P-l:IFPS-"D"THENP-0:POKE106,P 

-037- 

£500 

BY$-”00”:INPUT”INTRODUCE BYTE DEC”;BYS:GOSUB£540 

3£00 POKE103,L:POKE104,1:POKE105,1:POKE107,19£:POKE10 



-009- 

0, £ 

-040- 

£590 

BY-UALCBYS) 

-107- 

3£10 FORN-1TOL : POKE703+N , ASCCMIDSCNS , iM, 1) ) : NEXT 

:SYS6£ 

£600 

DC-BY:GOSUB£40:BYS-HXS 

-145- 

957 

-159- 

£610 

IFBY>£55ORBY<0THENGOTO£560 

—£0£— 

3££0 POKE190,£:P0KE631,19:P0KE63£,3:RUN 

-065- 

£6£0 

RETURN 

—£0£— 

3£30 PRINT”CCLR)LECTURA SECUENCIAL DESDE PERIFERICO” 

£630 

DC-AD:GOSUB£40 

—13£— 


-££9- 

£640 

RETURN 

-£04- 

3£40 PRINT:INPUT”CRON)DCROF}ISCO 0 CRON)CCROF)INTA”;H 

£650 

P0KE7B1,7:PÜKE70£,0:P0KE7B3,0:SYS655E0 

-03S- 

S 

-££7- 

£660 

POKE701,7:P0KE79£,39:SYS59905:HXS-”$”+HX$ 

:BYS—”$ 

3£50 IFHSO”D”ANDH$<>”C”THEN3£40 

-031- 

"+BYS 

-033- 

3£60 H-l:IFHS-”D"THENH-0 

-135- 

£670 

PRINTAD;TABC0)HX$;TABC16)BY;TABC£1)BY$ 

-074- 

3£70 PRINT:INPUT”NOMBRE DEL PROGRAMA";N$ 

-101- 

£600 

RETURN 

-£00- 

3£00 IFLENCN$)>16THEN3£70 

-190- 

£690 

POKEAD.BY:RETURN 

-134- 

3E90 NS-NS+”,S,R”:0PEN1,H,0,N$ 

-134- 

£700 

PRINT”CCLR}ENTRADA DECIMAL” 

-091- 

3300 INPUT#1,AC:INPUT#1,AF 

-075- 

£710 

PRINT”NUMEROS ENTRE 00 Y £55” 

-055- 

3310 FORI-ACTOAF 

—00£— 

£7£0 

PRINT”ACABAR CON END” 

-077- 

33E0 INPUT#1,Z;POKE1,2:NEXT 

—003— 

£730 

PRINT:INPUT"DIRECCION INICIAL”;H$ 

-£15- 

3330 CLOSE1 

— 144— 

£740 

IF LEFTSCHS,1)-”$”THENGOSUB170:AD-D:GOTO£760 

3340 PRINT"CCLR)LE IDO ";N$:PRINT:PRINT"DESDE ”; 

AC; ” H 



-115- 

ASTA ”;AF:PRINT 

-007- 

£750 

AD-UAL CHS) 

-000- 

3350 FORN-0TO£000:NEXT:GOTO£90 

-1£1- 

£760 

IFAD> 655350RAD< 0THEN£700 

-£11- 

3360 PRINT"CCLR)”:PRINT:PRINT”CRON)EJECUCION DE 

PROGR 

£770 

PRINT”CCLR}” 

-004- 

AMA EN CM” 

-070- 

£700 

PRINT” DIRECCI0NC6 ESPDBYTES" 

-105- 

3370 PRINT:INPUT”INTRODUCE DIRECCION DE INICIO" 

;H$ 

£790 

PRINT” DECC4 ESP1HEXC5 ESP3DECC0 ESP3HEX” 



-016- 



-165- 

3300 IFLEFTSCHS,1)-”$"THENGOSUB170:AD-D:GOTO3400 

£000 

PRINT” <£3 T> 

-094- 


-076- 

£010 

GOSUB£560:GOSUB£630:GOSUB£650:GOSUB£690 


3390 AD-UALCHS) 

-001- 



-£07- 

3400 IFAD>65535ORAD<0THEN3370 

-£07- 

£0£0 

AD-AD+1 

-143- 

3410 SYSAD 

-100- 
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SOFTWARE 0 


Cálculo de factoriales con TODAS sus cifras significativas 


Precisión 

infinita 


Prácticamente todos estamos fa¬ 
miliarizados con ia notación científi¬ 
ca de los ordenadores y las calcula- 
doras. Pese a su comodidad, este 
manejo numérico queda algo «cor¬ 

to» para efectuar cierto tipo de cál¬ 
culos, como por ejemplo, el de facto- 
riales. 


a notación científica consta 
de una mantisa de longitud 
variable y de un exponente 
que indica por qué potencia 
de diez hay que multiplicar 
la mantisa, para obtener el número. El C-64 
es capaz de contener una mantisa de 9 
dígitos y de alcanzar un techo en el expo¬ 
nente, de 38 (número máximo = 
1.70141183E-I-38 y número mínimo = — 
1.70141183E+38I. 


Aunque esta cantidad puede parecer- 
nos en principio suficientemente alta, pue¬ 
de darse el caso de encontrarnos «cortos» 
de números. Así sucede en el cálculo de 
factoriales: el producto del operando (un 
número entero positivo) por todos los ente¬ 
ros positivos menores que él. La notación 
empleada, si n es el número, es: n! 

Si nos atenemos al uso de los números 
máximos manejables por el C-Ó4, nuestro 
cálculo nos obsequiará con el mensaje 
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SOFTWARE [El 



«OVERFLOW ERROR», al tratar de efectuar 
el factorial de un número tan bajo como 34. 
En caso de poder contar con exponentes 
de hasta 99 (calculadoras científicas y otros 
ordenadores), el cálculo de factoriales lle¬ 
ga hasta el de 69 (69!); con un valor aproxi¬ 
mado de 1.7E98. 

Aún así, este tipo de representación no 
nos da más que unas pocas cifras significa¬ 
tivas (9 en el caso del C-64), suponiendo que 
el resto por la derecha son ceros. Este pro¬ 
blema queda subsanado con el uso del 
programa que proponemos, y que viene a 
demostrar que en informática, con un poco 
de ingenio, se puede superar casi cualquier 
limitación que nos encontremos en la reso¬ 
lución de un problema de cálculo. 

Nuestro programa 

Veamos ahora cómo hemos usado el in¬ 
genio para desarrollar el programa. La so¬ 
lución consiste en confeccionar una matriz 
(RO) que contendrá TODAS las cifras signifi¬ 
cativas del resultado. 

Dicha matriz contendrá 9 dígitos por ele¬ 
mento, dimensionándose inicialmente a 20, 
lo cual supone que podremos calcular fac¬ 
toriales de hasta 171 cifras ((20—1 )*9), o lo 
que es lo mismo, algo más del factorial de 
100. No obstante, si tenemos paciencia, 
podemos dimensionar R a cualquier núme¬ 
ro que deseemos, cambiando la asigna¬ 
ción D=20 de la línea 10, a cualquier valor 
superior. Tengamos en cuenta en tal caso 
que la precisión tiene un precio: el tiempo; 
como orientación debemos saber quer pa¬ 
ra el cálculo del factorial de 100, el progra¬ 
ma emplea 20 minutos. 

Pero veamos el programa paso a paso: 


10: En esta línea asignamos a C$ (Ce- 
ro$) el valor de 9 ceros, a D el valor 20 (nú¬ 
mero máximo de grupos de 9 cifras del re¬ 
sultado), y dimensionamos la matriz R. Acto 
seguido, preguntamos por el número del 
que queremos calcular el factorial, asigna¬ 
mos a I el valor D-l y comenzamos el bucle 
principal. 

15: Aquí escribimos el valor de J, que se¬ 
rá de incremento constante hasta llegar al 
número solicitado. 

20: Iniciamos el cálculo del factorial, me¬ 
diante dos bucles: uno completo y otro que 
será el corazón del algoritmo. 

30: Comprobamos que el valor de R(K) 
no sobrepasa 1E9, en cuyo caso le resta¬ 
mos este mismo valor y le sumamos uno al 
término anterior (R(K— 1 )=R(K— 1 )+l). 

40: Proseguimos el cálculo en el término 
anterior y comprobamos que no nos haya¬ 
mos quedado sin términos, en cuyo caso se 
emite el mensaje «OVERFLOW», y se aca¬ 
ba el programa. 

50: Si todavía el término actual es mayor 
que 1E9, repetimos el proceso anterior. 

Ó0: Comenzamos a extraer el número, 
saltándonos los términos que sean ceros. 
Hacemos J=0 para que nos sirva de ban¬ 
dera en la impresión del primer término dis¬ 
tinto de cero. Esto sirve para no situar ceros 
hasta completar 9 en la impresión de los 
primeros dígitos. Supongamos que el pri¬ 
mer valor es 132, si no hacemos lo anterior, 
la impresión de este término sería 
000000132... 

70: En el primer caso, escribimos el valor. 
Ver línea anterior. 

75: En los casos sucesivos, escribimos 
tantos ceros como sean necesarios hasta 
completar los nueve dígitos. 


Este programa no es ni mucho menos la 
panacea para la limitación numérica del 
C-64, sino más bien un ejemplo práctico y 
curioso de la superación de lo que, a prime¬ 
ra vista, parece insalvable. 

No obstante, si hemos comprendido su 
funcionamiento, podremos aplicar la mis¬ 
ma filosofía cuando necesitemos imprimir 
resultados muy grandes. 


10 C$-”C9 0D”:D-20:DinRCD): INPUT ,, ÍCLR}NUnERD ,, ;N:RCDD- 
1:I-D-l:FDRJ-1TDN -236- 

15 PRINT”CHOM}EL FACTORIAL DE”J;TABC20)”ESC3 .3" 

-206- 

20 F0RK-DT0ISTEP-1:RCK)-RC)0*J:NEXT:FDRK*DT0ISTEP-1 

- 110 - 

30 IFRCJ0>-1E9THENRC)0-RC]0-1E9:RCK-1)-RCK-l)+l 

-185- 

40 IFRCK)>*1E9THENIF(K-l )*ITHENI~I-1: IFI=0THENPRINT”O 
UERFLOUJ” : 5T0P -056- 

50 IFR(K)>“1E9THEN30 -190- 

60 NEXT:NEXT:J-0:F0RI-1T0D:IFRCI)-0ANDJ-0THEN80 

-049- 

65 J-J+l -184- 

70 IFJ=lTHENA$*niD$CSTR$CRCI)),2):PRINTAS;:GOTO80 

-232- 

75 A$=C$+f11D$(STR$CR( I 3 3 ,2) : PRINTRIGHTSC A$ , 9) ; 

-134- 

80 NEXT -199- 
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TECLA A TECLA 



Astro-Duel: 
Huelo en las 
estrellas 



> 


• ■ • 


s tal 


¿E 


rama que hoy os pres 


ntam 


■ cativo? ¿Una simulación? El programa que noy 

vez sirva para eso, pero en la mente del programador sólo había un objetivo: 

crear un juego de competición lo más rápido y sencillo posible.! 


STRO-DUEL es un programa 
que no sabemos muy bien 
como definir. Comenzó sien¬ 
do un ejercicio sobre un pro¬ 
grama que permitiese simu¬ 
lar el movimiento gravitatorio de los plane¬ 
tas alrededor del sol. 

Una vez superadas las etapas iniciales, a 
alguien se le ocurrió convertir los planetas 
en naves de combate dotadas de misiles. 
Eso y unos detalles más crearon el progra¬ 
ma que este mes os presentamos. 


ASTRO-DUEL está pensado para dos ju¬ 
gadores, cada uno de los cuales maneja 
una de las dos naves en lucha: una de la Fe¬ 
deración Terrestre y otra del Imperio Este¬ 
lar. Las naves son impulsadas mediante un 
sistema de cohetes, que se activa empujan¬ 
do la palanca del ¡oystick hacia arriba. 

Del mismo modo, las naves pueden girar 
sobre sí mismas, moviendo el ¡oystick a de¬ 
recha o izquierda (para giraren sentido ho¬ 
rario o antihorario, respectivamente). El im¬ 
pulso siempre se realiza en la dirección a la 


cual apunte la proa de 
que si ésta alcanza uno deNo\eV>i 
la pantalla, reaparecerá polerypue 
veremos que esto, a veces, pu 
tra salvación... ¡o nuestra mué? 

Cada aparato se halla dotado^ 
tema lanzador de misiles, con muñid? 
gotable, aunque sólo se pueden manten^ 
en curso tres misiles de cada nave al misrr^ 
tiempo, los cuales tienen una vida muy limi¬ 
tada, y desaparecen al cabo de unos po¬ 
cos segundos de haber sido lanzados. Un 
misil destruye una nave con sólo rozarla, 
pudiendo incluso alcanzar a la misma nave • 
que lo haya lanzado. 

A estos curiosos fenómenos que confor¬ 
man las reglas del juego, les podíamos dar 
multitud de motivos basados en la Ciencia 
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TECLA A TECLA 


Ficción. Así, la disponibilidad de sólo tres 
misiles a un tiempo se debe a la capacidad 
del Transmigrador Energético Quantico de 
que va dotado cada nave. 

En cuanto a lo infinito de la munición, se 
debe sin duda al efecto Páquico (el científi¬ 
co que lo descubrió era español) que se 
produce en el espacio libra ante la proximi¬ 
dad de una Nova de perfil bajo. 

De la vida limitada de los misiles le echa¬ 
mos la culpa al dichoso Transmigrador, de 
que te alcance tu propio rayo y de que sal¬ 
gas por un lado de la pantalla y aparezcas 
por otro, a la curvatura espacial y la cua¬ 
dratura del círculo, respectivamente (los 
poco imaginativos, lo achacarían a los 
agujeros negros). 

Y en cuanto al pequeño detalle de que el 
más mínimo impacto destruya las naves, es¬ 
tá bien claro: un «manguzazo» (lo descu¬ 
brió el científico Manguccio, de origen ita¬ 
liano), es un «manguzazo», aquí y en el es¬ 
pado. 

No obstante, la motivación real de todo 
esto es que el juego sea entretenido, rápi¬ 
do, bueno, bonito (... y barato) y no muy difí¬ 


cil de programar ¡qué ya está bien de pre¬ 
textos! 


Lo grave del asunto es 
la gravedad 

El planteamiento parece muy sencillo, y 
a decir verdad, lo es; sin embargo, existe un 
factor adicional que influye (y mucho) en el 
control de las naves: la gravedad. 

En efecto, como en toda batalla que se 
precie, en esta se disputa el control de un 
sector de la galaxia. Los dos luchadores se 
han encontrado en la órbita de una estrella 
del cuadrante, y luchan por el control del 
sistema. Y la estrella, además del premio, es 
parte de la lucha. 

La gravedad (que es lo que hace que las 
cosas caigan hacia abajo... De nada) de la 
estrella curvará las trayectorias, tanto de 
las naves como de los misiles. Y, claro está, 
atraerá todas las cosas hacia sí; no haría 
falta decirlo, pero todo lo que cae en una 
estrella se quema... como el que cae en una 


discusión sobre política. 

Bueno, para simplificar el juego existe la 
opción de seleccionar entre 4 niveles de 
gravedad: desde el espacio libre (sin gra¬ 
vedad, aconsejable como entrenamiento) 
a las peligrosas cercanías de un agujero 
negro (poco recomendable), pasando por 
estrellas enanas y gigantes rojas, cada una 
de diferente tamaño y gravedad. 

Como se puede ver, la mayor parte del 
programa está en código máquina; esto re¬ 
sulta imprescindible para obtener una cier¬ 
ta movilidad y agilidad en el juego, dado 
que hay que desplazar muchos objetos... ¡y 
todos según las leyes de la física! 

El resto del programa lo ocupan los da¬ 
tos para los sprites y las secuencias de ini- 
cialización del programa. Todo el «trabajo 
pesado» se realiza en código máquina, in¬ 
cluyendo, como no, los cálculos de la ace¬ 
leración producida por la gravedad y el 
control de la nave. 

Pilotos del espacio, a vuestros teclados,- 
creemos que el programa merece la pena 
(aunque sólo sea por las meriendas que les 
ganéis a los amigos a los que retéis...). 


LISTADO 


10 REM ********************** -065- 
20 REH * * -154- 
30 REM * ASTRO-DUEL * -059- 
40 REM * * -156- 
50 REM * 14/02/07 * -049- 
60 REM * * -150- 
70 REM *•***•*••**••*******«•* -071- 
00 U-53240:F-2040 : N-240:POKE53200,0:POKE53201,0:GOSUB 
360:GOSUB21B0:GGSUB390 -196- 
90 GOSUB2000:FCl)-0:FC2)-0.5 : FC3)-1:FC4)-1.5:SSC2)-”C 
2 ABJ)C2 DCH)CUHT)*” -157- 
100 S$C3)-”CR0N)CRED)!\!C2 ESP:<*>CABJ)C4 IZQ)C4 ESP) 
CABJ)C4 IZQ3C4 ESPKABJK4 IZO)CROF)<*> CR0N)C2 ESPKR 
0F)!\¡”:S$C4)-”C2 ABJ)C2 DCH) CUHT) ! Q ¡ ” -153- 
110 SSC1)-”C4 ESP)CABJ)C4 IZQ)C4 ESPKABJK4 IZQ)C4 E 
SPKABJK4 IZQ)C4 ESP)”:GOSUB200 -015- 
120 FORI-0TO511:POKE50561*I , NI-PEEKCAX*I ) :PRINT"CHOM) 
C4 ESP)CHOM)"100-INTC100* 1/511): NEXT -190- 
130 PRINT”CCLR) m : FORI-0TO35: X-1024*1000*RNDC 1 ) : POKEX , 


46 : P0KEX*54272,1: NEXT 
140 PRINT”CHOM)C11 ABJ) "SPCC19)S$CFA) 
150 POKEU+21,3:SYS49152 
160 IFPEEKC49215)ANDPEEKC49217)THEN160 
170 FORI"1TO5000:NEXT 


-041- 

-060- 

- 102 - 

-215- 

-055- 


100 P0KEU*21,0: N2-PEEKC49217): Nl-PEEKC49215) :P0KE4921 
5,0:P0KE49217,0 -163- 

190 PRINT”CCLR)CU ABJ)C5 DCH)*’; -165- 

200 IFN1ANDCN2-0)THENPRINT”CUJHT)UICTORIA DE LA ÑAUE T 
ERRESTRE !! -247- 

210 IFN2AND(N1-0)THENPRINT”CCYN)UICTORIA DE LA ÑAUE I 
MPERIAL !! -037- 

220 IFCN1-0)ANDCN2-0)THENPRINT”CYEL)LAS DOS ÑAUES HAN 
SIDO DESTRUIDAS ! -047- 

230 PRINT”C3 ABJ)C7 DCH)CGRN)PULSAD CR0N}F1CR0F} PARA 
JUGAR DE NUEUO” -217- 

240 PRINT”CABJ)C6 DCH}0 BIEN CR0N)F3CR0F) PARA CAMBIA 
R EL JUEGO” -174- 

250 GETAS:IFA$<> ”CF1 }”ANDA$<>”CF3 }”THEN250 

-175- 

260 IFAS-”CF1 }”THENGOSUB360:GOTO130 -001- 

270 IFA$-”CF3 }”THENGQSUB360:GOSUB200:GOTO120 

-006- 

200 PRINT”CCLR)C5 ABJ} !! ELEGID EL ESCENARIO DEL COM 
BATE !!” -123- 


290 PRINT”C2 ABJ)C10 DCH)1- ESPACIO ABIERTO.” 

-166- 

300 PRINT"C2 ABJ)C10 DCH)2- ENANA BLANCA.” -153- 

310 PRINT”C2 ABJ)C10 DCH)3- GIGANTE ROJA.” -194- 

320 PRINT"C2 ABJ)C10 DCH)4- AGUJERO NEGRO.” -033- 

330 GETAS:IFAS<”1”ORA$>”4”THEN330 -091- 

340 FA-UALCA$):NI-F(FA):PRINT”CCLR)C9 ABJ)”SPCC7)¡ 

-032- 

350 PRINT"COMIENZA LA CUENTA ATRASC3 .3":RETURN 

-171- 

360 GOSUB2400 : POKEF , N : POKEF+l, N : POKEU-^ 16,2 : POKEU, 26 : P 
OKEU^l.52 -093- 

370 P0KEU-*-2,62 : POKEU-^3,227 : P0KEU-*-39,1: POKEU-^40,5 : FORI 
•U+41T0U+46:POKE1,7:NEXT -031- 

300 RETURN -155- 

390 I-49152:POKE1,76:POKE1*1,05:POKE1*2,192:P0KE56,56 
:P0KE52,56 -226- 

400 FORI-49237TO50560:READA:POKEI,A:NEXT -252- 

410 FORI-50561TOI*512:POKEI,0:NEXT:I-PEEKCU*30):I-PEE 
K(U*31) -142- 

420 FORI-239*64TO240*64-1:POKEI,0:NEXT:BA-240*64 

-051- 

430 READPO:IFPO>64THEN450 -074- 

440 READUA:POKEBA*PO,UA:P0KEBA*P0*3,UA:BA-BA*64:G0T04 
30 -215- 

450 READPO:IFPO>255THENRETURN -197- 

460 FORI-64*P0T01*63:READA:POKEI,A:NEXT:GOTO450 

-021- 

470 DATA 120,169,129,162,192,141,20,3,142,21,3 

-009- 

400 DATA 162,24,169,0,157,0,212,202,16,250,162,01,157 
,3,192,202 -079- 

490 DATA 16,250,169,1,141,63,192,141,65,192,169,15,14 
1,24,212,00 -153- 

500 DATA 96,162,0,160,0,173,31,20B,141,04,192,32,26,1 
94,224,4 -240- 

510 DATA 176,10,254,51,192,109,51,192,201,6,144,0,169 
,0,157,51 -057- 

520 DATA 192,32,14,195,224,4,144,12,109,63,192,200,4, 
232,76,243 -100- 

530 DATA 192,32,100,196,109,19,192,41,127,24,125,3,19 
2,157,3,192 -160- 

540 DATA 201,50,144,15,56,233,50,157,3,192,32,4,193,1 
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09,3,192 -249- 
550 DATA 76,192,192,232,199,19,192,41,127,24,125,3,19 

2.157.3.192 -164- 
560 DATA 201,50,144,15,56,233,50,157,3,192,32,101,193 
,109,3,192 -089- 
570 DATA 76,224,192,232,224,16,208,147,173,30,20B,141 
,83,192,32,1 -194- 
500 DATA 197,76,49,234,109,19,192,41,128,208,51,169,1 
,24,125,0 -070- 
590 DATA 208,157,0,208,144,3,32,52,193,189,134,193,45 
,16,208,240 -153- 
600 DATA 7,189,0,208,201,120,16,1,96,169,0,157,0,208, 
32,52 -087- 
610 DATA 193,76,40,193,189,134,193,77,16,208,141,16,2 
08,96,189,0 -174- 
620 DATA 208,56,233,1,157,0,208,176,223,32,52,193,109 
,134,193,45 -153- 
630 DATA 16,208,240,212,169,120,157,0,208,189,134,193 
,13,16,208,141 -031- 
640 DATA 16,208,76,40,193,109,19,192,41,120,208,6,254 
,0,200,76 -065- 
650 DATA 117,193,222,0,208,96,0,63,127,63,0,191,255,1 
91,255,191 -099- 
660 DATA 0,63,127,63,0,191,1,1,2,2,4,4,8,8,16,16 

-093- 

670 DATA 32,32,64,64,128,128,0,20,40,60,80,100,120,14 
0,160,100 -012- 
680 DATA 200,220,240,50,8,0,1,2,1,0,129,130,129,130,1 
29,0 -005- 
690 DATA 1,2,1,0,129,173,59,192,41,127,141,60,192,173 
,61,192 -199- 
700 DATA 41,127,141,62,192,173,61,192,13,59,192,41,12 
0,240,10,173 -180- 
710 DATA 61,192,45,59,192,41,128,16,29,173,62,192,24, 
184,109,60 -112- 
720 DATA 192,80,2,169,127,41,127,141,60,192,173,61,19 
2,41,128,13 -144- 
730 DATA 60,192,141,59,192,96,173,62,192,56,237,60,19 
2,176,7,73 -128- 
740 DATA 255,24,105,1,9,120,141,59,192,173,61,192,41, 
120,208,1 -047- 
750 DATA 96,173,59,192,73,120,141,53,192,96,109,0,200 
,133,252,173 -233- 
760 DATA 16,208,61,134,193,240,2,169,1,133,253,165,25 

2.56.233.24 -144- 
770 DATA 133,252,176,2,198,253,70,253,102,252,70,252, 
70,252,165,252 -042- 
700 DATA 201,20,144,11,169,39,56,229,252,133,252,169, 
1,133,253,169 -252- 
790 DATA 0,133,254,189,1,200,56,233,50,74,74,74,201,1 
3,144,11 -248- 
800 DATA 133,251,169,24,56,229,251,160,1,132,254,160, 

185.150.193.24 -042- 
810 DATA 101,252,144,2,169,255,168,133,252,185,129,19 

7.24.125.35.192 -101- 
020 DATA 157,35,192,109,35,192,205,164,193,144,56,56, 
237,164,193,157 -126- 
030 DATA 35,192,189,19,192,141,59,192,165,253,41,1,24 
0,2,169,128 -164- 
040 DATA 9,1,141,61,192,32,181,193,173,59,192,157,19, 
192,41,127 -112- 
050 DATA 205,163,193,144,11,189,19,192,41,120,13,163, 

193.157.19.192 -058- 
860 DATA 76,131,194,185,129,198,24,125,36,192,157,36, 

192.189.36.192 -004- 
070 DATA 205,164,193,144,56,56,237,164,193,157,36,192 
,189,20,192,141 -119- 
080 DATA 59,192,165,254,41,1,240,2,169,128,9,1,141,61 
,192,32 -208- 
890 DATA 101,193,173,59,192,157,20,192,41,127,205,163 
,193,144,11,189 -112- 
900 DATA 20,192,41,128,13,163,193,157,20,192,76,205,1 
94,96,138,74 -211- 
910 DATA 168,189,79,192,201,6,176,3,254,79,192,189,63 
,192,208,20 -185- 
920 DATA 189,64,192,201,3,176,12,254,64,192,169,1,24, 
121,248,7 -057- 
930 DATA 153,248,7,96,32,74,197,1B9,63,192,20B,1,96,1 
05,0,220 -027- 
940 DATA 133,252,165,252,41,1,208,112,109,55,192,160, 
105,165,193,141 -104- 
950 DATA 59,192,189,19,192,141,61,192,32,181,193,173, 


59,192,157,19 -031- 
960 DATA 192,41,127,205,163,193,144,11,189,19,192,41, 

120.13.163.193 -052- 
970 DATA 157,19,192,185,173,193,141,59,192,109,20,192 
,141,61,192,32 -069- 
980 DATA 181,193,173,59,192,157,20,192,41,127,205,163 
,193,144,11,189 -112- 
990 DATA 20,192,41,128,13,163,193,157,20,192,169,30,1 
41,0,212,169 -194- 
1000 DATA 35,141,1,212,169,42,141,5,212,169,0,141,6,2 
12,169,0 -218- 
1010 DATA 141,4,212,169,129,141,4,212,130,74,168,165, 
252,41,4,200 -184- 
1020 DATA 20,109,55,192,56,233,1,41,7,157,55,192,24,1 
05,248,153 -097- 
1030 DATA 248,7,76,228,195,165,252,41,8,208,9,189,55, 
192,24,105 -120- 
1040 DATA 1,76,199,195,165,252,41,16,240,1,96,189,79, 
192,201,5 -064- 
1050 DATA 176,1,96,169,0,157,79,192,160,4,224,2,208,2 
,160,10 -196- 
1060 DATA 133,252,185,63,192,240,3,76,174,196,152,74, 
133,252,189,0 -255- 
1070 DATA 208,153,0,208,189,1,208,153,1,208,173,16,20 

8.61.134.193 -188- 
1080 DATA 240,12,185,134,193,13,16,206,141,16,208,76, 
57,196,185,134 -046- 
1090 DATA 193,73,255,45,16,208,141,16,208,169,1,153,6 
3,192,153,64 -206- 
1100 DATA 192,130,74,168,185,248,7,56,233,8,164,252,1 
53,248,7,165 -222- 
1110 DATA 252,10,168,185,134,193,13,21,208,141,21,208 
,188,55,192,185 -086- 
1120 DATA 118,193,133,253,185,126,193,133,254,165,252 
,10,168,165,253,153 -036- 
1130 DATA 19,192,165,254,153,20,192,169,160,141,7,212 
,169,50,141,14 -032- 
1140 DATA 212,169,12,141,8,212,169,10,141,15,212,169, 

10.141.12.212 -208- 
1150 DATA 169,10,141,19,212,169,0,141,13,212,141,20,2 

12.141.11.212 -196- 
1160 DATA 141,18,212,169,129,141,11,212,169,39,141,18 
,212,96,200,200 -070- 
1170 DATA 230,252,165,252,201,3,176,3,76,2,196,96,189 
,1,208,201 -095- 
1180 DATA 129,144,34,201,171,176,30,173,16,200,61,134 
,193,208,22,109 -089- 
1190 DATA 0,208,201,136,144,15,201,192,176,11,173,84, 

192.61.134.193 -029- 
1200 DATA 240,3,76,240,196,254,64,192,189,64,192,201, 

200.176.1.96 -201- 
1210 DATA 169,0,157,63,192,189,134,193,73,255,45,21,2 
08,141,21,208 -250- 
1220 DATA 96,173,83,192,41,3,208,1,96,201,3,240,54,20 
1,1,240 -101- 
1230 DATA 25,32,119,196,173,65,192,208,1,96,169,0,141 
,65,192,169 -164- 
1240 DATA 236,141,249,7,169,0,141,66,192,96,173,63,19 

2.208.1.96 -115- 
1250 DATA 169,0,141,63,192,169,236,141,248,7,169,0,14 
1,64,192,32 -152- 
1260 DATA 119,196,96,32,42,197,32,20,197,96,189,1,208 
,201,129,144 -217- 
1270 DATA 34,201,171,176,30,173,16,208,61,134,193,208 
,22,189,0,208 -238- 
1280 DATA 201,136,144,15,201,192,176,11,173,84,192,61 
,134,193,240,3 -028- 
1290 DATA 76,116,197,96,169,0,157,63,192,169,236,153, 
248,7,76,119 -242- 
1300 DATA 196 -190- 
1310 DATA1,24,2,3,32,3,59,3,58,24,57,192,30,192,0,192 
,99 -012- 
1320 DATA248,0,0,0,0,0,0,0,0 -126- 
1330 DATA0,0,0,0,0,0,0,0 -181- 
1340 DATAS,0,0,28,0,0,28,0 -050- 
1350 DATA0,54,0,0,34,0,0,99 -105- 
1360 DATA0,0,255,128,0,190,128,1 -101- 
1370 DATA190,192,1,190,192,0,227,128 -060- 
1380 DATA0,0,0,0,0,0,0,0 -186- 
1390 DATA0,0,0,0,0,0,0,0 -187- 
1400 DATA252,0,0,0,0,0,0,0,0 -120- 
1410 DATA0,0,0,0,0,0,0,0 -180- 
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1420 DATA227,120,1,190,192,1,190,192 -057- 
1430 DATA0,190,120,0,255,120,0,93 -164- 
1440 DATA0,0,34,0,0,54,0,0 -039- 
1450 DATA2B,0,0,28,0,0,B,0 -052- 
1460 DATA0,0,0,0,0,0,0,0 -185- 
1470 DATA0,0,0,0,0,0,0,0 -106- 
1480 DATA250,0,0,0,0,0,0,0,0 -126- 
1490 DATA0,0,0,0,0,0,0,0 -180- 
1500 DATA192,0,1,240,0,1,24,0 -190- 
1510 DATA1,254,0,0,243,128,0,241 -092- 
1520 DATA192,0,243,128,1,254,0,1 -099- 
1530 DATA24.0,1,240,0,0,192,0 -192- 
1540 DATA0,0,0,0,0,0,0,0 -184- 
1550 DATA0,0,0,0,0,0,0,0 -185- 
1560 DATA254,0,0,0,0,0,0,0,0 -129- 
1570 DATA0,0,0,0,0,0,0,0 -187- 
1580 DATA3,0,0,15,128,0,24,128 -001- 
1590 DATA0,127,12B,1,207,0,3,143 -103- 
1600 DATA0,1,207,0,0,127,128,0 -244- 
1610 DATA24,128,0,15,128,0,3,0 -251- 
1620 DATA0,0,0,0,0,0,0,0 -183- 
1630 DATA0,0,0,0,0,0,0,0 -184- 
1640 DATA255,0,0,0,0,0,0,0,0 -129- 
1650 DATA0,0,0,0,2,128,0,1 -040- 
1660 DATA20B.0,3,-254,0,1,155,192 -107- 
1670 DATA0,141,224,1,206,192,0,255 -203- 
1680 DATA192.0,191,128,0,222,0,0 -101- 
1690 DATA10B,0,0,124,0,0,120,0 -241- 
1700 DATA0,32,0,0,0,0,0,0 -235- 
1710 DATA0,0,0,0,0,0,0,0 -183- 
1720 DATA253,0,0,0,0,0,0,0,0 -126- 
1730 DATA0,0,0,0,0,32,0,0 -238- 
1740 DATA120,0,0,124,0,0,108,0 -237- 
1750 DATA0,222,0,0,191,128,0,255 -099- 
1760 DATA192,1,206,192,0,141,224,1 -204- 
1770 DATA155,192,3,254,0,1,208,0 -109- 
1780 DATA2,128,0,0,0,0,0,0 -043- 
1790 DATA0,0,0,0,0,0,0,0 -191- 
1800 0ATA251,0,0,0,0,0,0,0,0 -123- 
1810 DATA0,0,0,0,0,4,0,0 -188- 
1B20 DATA30,0,0,62,0,0,54,0 -093- 
1830 DATA0,123,0,1,253,0,3,255 -250- 
1840 OATA0,3,115,128,7,177,0,3 -009- 
1B50 DATA217,128,0,127,192,0,11,128 -004- 
1860 DATA0,1,64,0,0,0,0,0 -248- 
1870 DATA0,0,0,0,0,0,0,0 -190- 
1880 DATA249,0,0,0,0,0,0,0,0 -138- 
1890 DATA0,0,0,0,0,1,64,0 -251- 
1900 DATA11,128,0,127,192,3,217,128 -003- 
1910 DATA7,177,0,3,115,128,3,255 -115- 
1920 DATA0,1,253,0,0,123,0,0 -139- 
1930 DATA54,0,0,62,0,0,30,0 -095- 
1940 DATA0,4,0,0,0,0,0,0 -192- 
1950 DATA0,0,0,0,0,0,0,0 -189- 


1960 DATA236,0,0,0,2,32,128,0,0,0,200,76,136,0,0,0,0 

-016- 

1970 DATAS,32,18,0,0,0,48,4,0,0,12,0,0,128,2,0 

-245- 

1980 DATA0,128,0,2,0,0,48,0,130,0,12,0,8,32,0,0 

-029- 

1990 DATA0,136,0,4,0,76,192,128,0,0,48,128,0,0,0,24 

- 000 - 

2000 DATA237,0,0,0,3,0,0,0,0,0,8,172,192,2,170,0,13 


-215- 

2010 DATAB,160,42,1,192,0,176,136,35,34,12,2,9,160,40 
,0 -195- 

2020 DATA0,202,0,32,8,12,160,8,160,0,9,32,140,34,136, 
0 -128- 
2030 DATA3,33,0,8,8,192,0,192,0,0,0,0,0,0,0,24 

-234- 

2040 DATA23B,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

-093- 

2050 DATA4B,0,2,2,0,0,168,48,13,38,0,10,174,192,42,13 
6 -152- 

2060 DATA64,14,202,32,2,170,32,10,110,0,2,16,128,0,13 
6,0 — 222 — 
2070 DATA0,131,0,0,0,0,0,0,0,0,0,0,0,0,0,24,999 

-009- 

2080 AX“256*64:AY-AX+256:C"0:FORY“0TO12 -05B- 

2090 FORX-0TO19 -164- 

2100 A-300/C (19-X)*C19-X)-*-C12-Y)*(12-Y)) -231- 

2110 IFX< >19THENAN"ATNC C12-Y3 / C19-X33 -135- 


2120 IFX-19THENAN-CPI 1/2 -206- 

2130 D"A*COS(AN3+0.5:IFD>8THEND“B -192- 

2140 E-A*SINCAN3+0.5:IFE>8THENE-8 -201- 

2150 POKEAX+C,D:POKEAY+C,E:C-C+l -201- 

2160 IFO255THENX-30: Y-X -228- 

2170 NEXT:NEXT:RETURN -188- 

2180 PRINT M CCLR1C4 ABJKWHT3 " ; : -013- 

2190 PRINT”C6 ESP3CRON3CPUR3!\!C2 ESP!¡N!CRGF3C3 ESP3 
CRON3CPUR3 ! \ ! C2 ESP 3 ! N i CROF3 CLJHT3 CRON3CPUR3 ¡ \ ! C2 ESP 
3 ¡N! CROF3CUHT3 CRDN1CPUR1 ! \ ! C2 ESP3 ! N ! CRGF3CUJHT3C3 ES 
P3CRON3CPUR}!\¡C2 ESP3 ! N ! CR0F1C6 ESP3”; -090- 

2200 PRINT”CUJHT3C6 ESP3 CRON3C3 ESP3CPUR3 CRGF3CUHT3C3 
ESP3CRON3C3 ESP3CROF3CPUR}!\iCUIHT} CRON3C3 ESP3CRGF> 
CPUR1 ¡ \ 1 CUIHT3 CRON3C3 ESP3CPUR3 CROF3CUJHT3C3 ESP3CRGN 
3C3 ESP3CPUR3 CROF3C5 ESPJ"; -059- 

2210 PRINT”CU)HT3C7 ESP3CRON3 CPUR1 CUHT3 CPUR3 CROFK 
UJHT3C3 ESP3CRON3 CPUR1IN! ! N ¡ CROF3CUÍHT1 CRON3 CPUR1 C 
RGF3CWHT3C3 ESP3CRGN3 CPUR3 CUHT3 CPUR3 CROF3CWHT3C3 
ESP3CRON3 CPUR1 CUJHT3 CPUR3 CROF3C6 ESP3”; -169- 

2220 PRINT”CUHT3C6 ESP3CRON3 CPUR3 i N ! CLJHT3 CPUR3I2 N! 
CR0F1CUJHT1C2 ESP3 CRON3C3 ESP3CPUR3 CROF3CLUHT3 CRON3 C 
PUR3 CROF3CUJHT3C3 ESP3CRON3 CPUR1 ! N ¡ CUJHT1 CPUR3 CROF3 
CUJHT3C3 ESP3CRON3 CPUR3 CLUHT3 CPUR3 CROF3C6 ESP3”; 

-230- 

2230 PRINT”CUHT3C6 ESPD CR0N1C4 ESP1CPUR1 CRDF1CUIHT1 C 
RONICPURIINÍ !N¡ CROFICUHTl CRDN1 CPUR1 ÍROF1CUJHT1 CRDN 
1 CPUR1 CR0F1CUIHT1C3 ESP1CR0N1C3 ESPD CPUR1 ¡ 2 N1CRDF1C 
UHT1C2 ESP1CRON1 CPUR1 CUJHT1 CPURl CR0F1C6 ESPl”; 

-069- 

2240 PRINT”CU1HT}C6 ESP3CRON1 CPUR1 CROF1CUHT1 CRON1 C 
PUR1 CRÜF1CUJHT1 CRÜN1 CPUR1IN! CUHT1 CPUR1 CROF1CUHT1 
CRON1 CPUR1 CR0F1CUJHT1C3 ESPDCRON1 CPUR1 CROF1CUJHT1 
CRÜN1 CPUR1Í2 N ! CROF1CUJHT1 CRON1 CPURl ! N ! CUIHT1 CPUR1 

-127- 

2250 PRINT”CR0F1C6 ESP:”; . -071- 

2260 PRINT”CU)HT}C6 ESPDCRONl CROF1CPUR1 ! \ ! CLJHT1 CRGNl 
ÍRGF1CPUR1!\!CUHT1 CRGN1C4 ESP3CRGF1CPUR1!\!CUHT1 CR 
GN1 CROF1CPUR1¡\!CUHT1C3 ESP1CRQN1 CROFJCPURJI\KWHT> 
C2 ESPICRONI CROF>CPURl ! \ ¡ CUJHTl CRGN1C3 ESP!CRGF1CPUR 
1!\!C5 ESP3”; -120- 

2270 PRIIYT”C4 ESP3C3 ABJ1”; -170- 

2280 PRINT^CUMnClS ESPD CRON1 CPUR1 ! \ í C 2 ESP3 ! N ! CROF1C 
UJHT1C2 ESPUCRGNICPUR} ! \ ! !N¡ CROFl CUHT1C 4 ESP! CRGN1CPUR 
1!\! ! N ! CROF1 CUHT1C2 ESPD CRON1 CPUR1 ! \ ! ! N ! CRGF1CUIHT1C 8 

ESP1”; -237- 

2290 PRINT”CUHT}C6 ESPD CR0N1C6R21 ! \ ! CR0F1CU)HT1C6 ESPD 
CR0N1C3 ESPICPURI ¡2 N! CROF1 CUIHTl CRGN1 ÍPUR1 CROF1CUJH 
TK4 ESP! CRQN1C2 ESP! CROF1CPUR1 ¡ \ ! CUHT1C2 ESP1CRON1 C 
PUR1 CR0F1CUJHT1C8 ESPD”; -193- 

2300 PRINT”CUHT1C5 ESP1CRDN1CGR21!\! CR0F1CUHTK6 ESP 
DCRON1 CPUR1 CROF1CUHT1 CRGN1 CPUR1 CRGF1CUHT1 CRQN1 
CPUR1 !\! ! N ! CRGF1CUJHT1 CRON1CPUR1 ! \ ! CUJHT1 CPUR) ¡2 NIC 
R0FKUJHTX2 ESPICRONI CPUR1 CROF1 CUIHTir6 ESPl”; 

-150- 

2310 PRINT”C2 ESPl”; -050- 

2320 PRINT”CUJHT1C4 ESP3 CRON1CGR21 ! \ ! C2 ESP3 CRDF1 CUIHT1 
C6 ESP3CRON1 CPUR1 CRGFICUIHTI CRON1 CPUR1 CRGF1CUHT1 
CRON1 CPUR1 CUIHT1 CPUR1 CROF3CUHT1 ÍR0N1C3 ESP3CROF1C 
PUR1SMCUHT1C2 ESP3CRON1 CPUR1 CR0F1CUIHT1C6 ESP3 ”; 

-005- 

2330 PRINT”C2 ESP3”; -052- 

2340 PRINT”CU)HT1C4 ESPD CRDN1CGR21 ¡ M ¡ C2 ESP3CROF1CUHT1 
C6 ESP3CRON1 CPUR1 CRGF1CUJHT1 CRGN1 CPUR1 CROF1CUHT1 
CRON1 CPUR1 CUiHTl CPUR1 CROFIÍUIHTI CRON1 CPUR1 CROF1C 
UJHT1C4 ESPDCRON1 ÍPUR1 CROF1CUHTH6 ESPl"; -162- 

2350 PRINT”C2 ESP3”; -054- 

2360 PRINT”CUIHT1C4 ESP3 CGR2X*> CRON1 ! M ! CR0FKUIHTK6 
ESP3CRON1 CPURÜN! CUJHT1 CPUR3 CROF3CIÜHT3 CRDN3 CPUR3 
INICUIHT3 CPUR3 CROF3CUHT1 CRON3 CPUR3IN!C2 ESP3 1NICRG 
F3CUJHT1 CRON3 CPUR3IN! ! N ! CRGF3ÍUIHT3C6 ESP3 " ; 

-019- 

2370 PRINT”"; -248- 

2380 PRINT”CU)HT3C5 ESP3 CGR23<*> CRGN3 ! fl! CRDF3CUJHT3C6 E 
SP3CRON1C4 ESP3CROF3CPUR1! \ ! CUJHT3 CR0N1C3 ESP3 CRQF3CP 
UR3 ¡ \ ! CUIHT3 CRON3C4 ESP3CROF3CPUR3 i \ ! CUHT3 CRGN3C3 ES 
P3 CRQF3CPUR3 I \ ! CUJHT3C6 ESP3 " ; -227- 

2390 PRINT”C2 ABJ3CUJHT3C12 ESP3LEYENDO DATASC3 .3CHGM 
3”:RETURN -186- 

2400 P0KE56334,PEEKC 56334 ) AND254:P0KE7B8,49:PGKE789,2 
34 -174- 

2410 P0KE56334,PEEKC563343ORI -148- 

2420 RETURN -200- 


TU MICRO COMMODORE 65 









T§BL©ñ 


CAMBIO todo tipo de pro¬ 
gramas en soporte cinta para 
el C-64. Poseo varios de gran 
calidad (Green Beret, Easy 
Script, Elite, La Ley del Oeste, 
etc.). También tengo numero¬ 
sas instrucciones. Llamar al 
TeL: (91)4167851 (de 6a 10). 
O escribir a Javier Bautista 
Scheuber. Torrelaguna, 108. 
28043 Madrid. 

DESEAMOS formar un 
club de COMMODORE para 
intercambiar ideas, progra¬ 
mas o juegos. Si hay alguien 
interesado en ello puede lla¬ 
mar o escribir a Dimas Miura 
Lara. Ruiz, 22,2.° Deha. 28004 
Madrid. Tel.: 447 70 63. 

CLUB de usuarios del 
Commodore 64, para inter¬ 
cambio de programas (más 
de 1000), trucos, pokes, ma¬ 
pas, etc., por el momento ex¬ 
clusivamente en cassette. 
Creación de una revista para 
los socios, enviarnos vuestras 
listas. Contacto con otros 
Clubs de España. Coleccio¬ 
namos cartuchos e instruccio¬ 
nes de programas. Interesa¬ 
dos dirigirse a José. Apdo. de 
Correos 195. Lérida. 

DESEO intercambiar todo 
tipo de información, Soft y 
Hard con poseedores de un 
C-64 españoles o de otras na¬ 
cionalidades. Prometo con¬ 
testar. Pablo Mariano Moran- 
di-Dorrego, 3653. Santos Lu¬ 
gares. BS.AS. Argentina. C.P. 
1676. 

VENDO C-64 (30.000 

ptas.), unidad de discos 1541 
(40.000 ptas.) e impresora 
MPS-801 (35.000 ptas.), todo 
en perfecto estado. Mario 
González de Ramón. Dr. Cris¬ 
tóbal Quevedo, 4. 35011 Las 
Palmas. Tel.: (928) 25 00 60 
(de lunes a viernes, sólo de 21 
a 22 h.). 

C-64 Vendo programas en 
soporte cinta, prometo con¬ 
testar a todas las cartas. Inte¬ 
resados escribir a José Carlos 


Campos. San Cristóbal, 3, 2.° 
D. Motril (Granada). 

CAMBIAMOS programas 
para C-64, tanto en cinta co¬ 
mo en disco. Prometemos 
contestar. Interesados escri¬ 
bir a José M. a Medina. Apdo. 
de Correos 128. 08080 Saba- 
dell (Barcelona). 

INTERCAMBIO programas 
de Astrología para Commo¬ 
dore Amiga. Interesados es¬ 
cribir a José Muñoz Reales. 
Martí Codolar, 47, Droguería. 
Hospitalet de Llobregat (Bar¬ 
celona). 

ATENCION. Urge comprar 
unidad de discos. O puedo 
ofrecer un lote de programas 
valorado en 130.000 ptas. a 
cambio de unidad de discos o 
de impresora o de monitor co¬ 
lor de cualquier periférico pa¬ 
ra CBM-64. Cambio CMB-64 
por CBM-128 pagando la di¬ 
ferencia y regalo programas. 
Vendo videopac Philips G- 
7400 convertible en ordena¬ 
dor, regalo programas. Inter¬ 
cambio Software para CBM, 
tengo todas o casi todas las 
últimas novedades. Francisco 
Javier Bernal Malillos. Eche- 
garay, 1. Cantalejo (Segovia). 
Tel.: (911) 52 04 04. 

VENDO Commodore C-64, 
Datassete, manual del usuario 
(castellano), libros de progra¬ 
mación, revistas, juegos muy 
buenos y programas de utili¬ 
dades. Todo en perfecto esta¬ 
do. Poco uso. Precio a conve¬ 
nir. Eduardo Dorgambide Pé¬ 
rez. Gasset, 23. Puebla del Ca- 
ramiñal (Coruña). Tel.: (981) 
83 04 10. 

CLUB. Usuarios Commodo- 
re-Tarragona, centro homolo¬ 
gado por la Generalitat de Ca¬ 
talunya; nuestras actividades 
están distribuidas en distintas 
secciones: Biblioteca, Progra- 
moteca, Cursos, Asesora- 
miento, etc. Dos años al servi¬ 
cio de nuestros socios. Para 
información dirigirse a Club 


Usuarios Commodore. Apdo. 
de Correos 176. Tarragona. O 
también escribir a Fortuny, 4, 
2.°, 2. a . Tarragona. 

COMPRARIA unidad de 
disco 1541 por 20.000 ptas. 
aprox. Asimismo estoy intere¬ 
sado en intercambiar juegos y 
programas de utilidades para 
el C-64, tengo en total unos 
600. Agustín García Cerdán. 
Nueva, 14. 50700 Caspe (Za¬ 
ragoza). Tel.: (976) 63 01 98. 

USUARIO de CBM-64 de¬ 
sea contactar con otros usua¬ 
rios interesados en las comu¬ 
nicaciones por Ordenador, a 
través de Modem telefónico. 
Interesados llamar al Tel.: 
(977) 86 00 63, o escribir a 
Eduard Macip. Forn de la vila, 
5.43400 Montblanc (T arrago- 
na). También cambio progra¬ 
mas. 

VENDO, en conjunto o por 
elementos, ordenador Com¬ 
modore 64, unidad de discos, 
Datassette, impresora Seikos- 
ha SP-1000 VC compatible 
con C-64, lápiz óptico. Soft¬ 
ware: Easy Script, Superbase, 
Cale Result, Logo en castella¬ 
no, Simon’s Basic, Supermon, 
Forth, todo con manuales en 
castellano; Oxford Pascal, Ba¬ 
sic Ligthing, Machine Ligth- 
ning, Doodle, con manuales 
en inglés; Magic Desk, copia¬ 
dores, turbos, compilador, 
ajedrez, simulador de vuelo, 
etc.; 10 libros de Lenguaje 
Máquina. Interesados llamar 
al Tel.: (91) 254 80 62 (noche). 

VENDO cartucho Escritor V 
1.0 (Tratamiento de textos en 
castellano) para C-64 y Sei- 
kosha SP-800. Instrucciones. 
José A. Larumbe Aragón. Ru- 
cabado, 14, 4.° E. Castro Ur¬ 
díales. 39700 Cantabria. Tel.: 
(941) 86 04 96. 

INTERCAMBIO programas 
para C-64. Prometo contestar. 
Interesados mandar lista a Jo¬ 
sé Bueno Galián. Doctor So¬ 


ler, 9. 30730 San Javier (Mur¬ 
cia). 

DESEARIA intercambiar 
programas con otros commo- 
dorianosJnteresados escribir 
a Carlos Salcedo Serra. Alto 
de San Isidro, s/n. 49002 Za¬ 
mora. Tel.: (988) 52 77 64. 

INTERCAMBIO programas 
en cinta para el C-64. Mandar 
lista o llamar por teléfono a 
Diego Loureiro. Ondategui, 
21, 2.° D. Las Arenas (Viz¬ 
caya). Tel.: (94) 463 14 48. 

VENDO Commodore 64, 
unidad de disco 1541, Data- 
sette, 2 joysticks Qll, más de 
40 programas en disco de 
juegos, copiones y utilidades, 
70 ejemplares de revistas de 
Commodore (aprox.), manua¬ 
les de funcionamiento y libros, 
todos los cables y conexio¬ 
nes. Buen estado y funciona¬ 
miento garantizado. Urge 
venta por motivos económi¬ 
cos, todo por 60.000 ptas. In¬ 
teresados ponerse en contac¬ 
to con David Alvarez Obiols. 
Verdi, 241. Barcelona. Tel.: 
(93) 312 82 45. 

VENDO los juegos para 
Commodore Hypersports y 
Green Beret en sus cintas ori¬ 
ginales a 600 ptas. cada uno y 
1.000 los dos. Escribir a Anto- 
ni Torrents. Urgel, 97, pral. 2. 
08011 Barcelona. O llamar al 
Tel.: 323 41 89. Me los regala¬ 
ron duplicados, no son copias 
ilegales. 

CAMBIO programas para 
C-64 en cinta, preferentemen¬ 
te de Barcelona. Tengo unos 
400, incluyendo últimas nove¬ 
dades. Mandad lista y vuestro 
Tel. o dirección a Padrell, 186, 
2.°, 4. a 08032 Barcelona. O lla¬ 
mar al Tel.: 357 10 27. 

VENDO CBM 64 con cas¬ 
sette, 1 mando, 72 juegos. 
37.500 ptas. el ordenador tie¬ 
ne 6 meses. Preguntar por Os¬ 
car en el Tel.: 413 07 68. 
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de Utilidad 
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ENERGIA, AGILIDAD Y MUCHA RAPIDEZ SON LOS 
COMPONENTES IMPRESCINDIBLES JUNTO CON 
LOS AUTOBOTS PARA EVITAR QUE LA ENERGIA DE 
TU PLANETA SEA ANIQUILADA POR LOS 
DECEPTICONS Y SU GIGANTE ROBOT. 
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